小编use*_*1_G的帖子

这肯定让过去的某个人感到恼火,请原谅我,如果这是重复的,我会将其删除.使用时斜跨传说geom_bar可能很烦人.例如:

x  <- c("a","b")
y  <- c(1,2)
df <- as.data.frame(cbind(x,y))
a  <- ggplot(df,aes(x=x,y=y,fill=x))
a + geom_bar(colour="black") + scale_fill_manual(values=c("white", "black"))

当我使用彩色条时,我会使用此工作,首先绘制没有颜色的条形图

a + geom_bar() + geom_bar(colour="black",show_guide=FALSE) +
 scale_fill_manual(values=c("white", "black"))

但是,当填充为白色时,在没有边框的图例中留下不满意的空白框.例如

我过去已经使用图形软件手动修复了这个问题,但现在我认为这对于足够的人来说必须在这里提出一个问题.我们可以ggplot用黑色轮廓绘制图例,但没有斜线吗？

我想即兴创建与密度成正比的回归阴影.例如,置信区间较窄,阴影密集,而如果置信区间宽,则填充颜色较浅.结果图可能如下所示:

这是一个工作示例:

set.seed(1234)
md <- c(seq(0.01, 1, 0.01), rev(seq(0.01, 1, 0.01)))
cv <-  c(rev(seq(0.01, 1, 0.01)), seq(0.01, 1, 0.01))
rv <- rnorm (length(md), 0.1, 0.05)

 df <- data.frame(x =1:length(md),  F = md*2.5 + rv, L =md*2.5 -rv-cv, U =md*2.5+ rv+ cv)
 plot(df$x, df$F, ylim = c(0,4), type = "l")

 polygon(c(df$x,rev(df$x)),c(df$L,rev(df$U)),col = "cadetblue", border = FALSE)
 lines(df$x, df$F, lwd = 2)
 #add red lines on borders of polygon
 lines(df$x, df$U, col="red",lty=2)
 lines(df$x, df$L, col="red",lty=2)

使用新的expect语法:

 expect(@line.filter_results_and_display_them).to == @processed

得到此错误:

ArgumentError:expect语法不支持运算符匹配器,因此必须将匹配器传递给'#to'

plot3d()产生一个我可以扭转并旋转的3d图.但是当我plot3d()再次打电话时,之前的情节就会消失,并被这一个取代.

我怎样才能打开一个新的XQuartz窗口,而不是用新的3d绘图替换旧窗口.

基本上,我想要一次打开两个3d图.

我比较新ggplot2,而且我在为我的轮廓添加适当的标签时遇到了麻烦.

使用经典的火山示例,我可以在默认等值线图中添加标签:

library(plyr)
library(ggplot2)
library(directlabels)
library(reshape)
volcano<-melt(volcano)
v<-ggplot(volcano, aes(x,y,z=z))
e<-v + stat_contour(aes(colour=..level..))
direct.label(e)

在上面的例子中,标签被适当地添加,但是如果我尝试为轮廓指定我自己的断点,事情会变得更复杂:

e<-v + stat_contour(aes(breaks=c(160, 170, 180), colour=..level..))
direct.label(e)

现在,轮廓由我提供的断点指定,但标签仍然显示所有默认轮廓.如何仅绘制图形轮廓的标签？

一个相关的问题,我如何绘制默认情况下未包含的轮廓水平标签？说休息165:

e<-v + stat_contour(aes(breaks=c(165), colour=..level..))
direct.label(e)

谢谢你的帮助!

我的数据框的一列有单词和短语.我正在尝试为此列中的那些字段创建一个虚拟变量,其中包含特定的文本字符串.

例如:

• 风筝
• 汽车
• 盒子风筝
• 模型车
• 我喜欢放风筝

• 世界汽车

   myvector<-c("kite","cars","box kites","model cars","i like kites that fly",
   "cars of the world")
  

  Run Code Online (Sandbox Code Playgroud)

我想用字符串"kite"识别所有字段

我已经尝试了一些东西,比如any(),which()和%in%但至今没有奏效.

任何帮助非常感谢

我已经将文件中的数据导入到R中的数据框中.就像这样.

Name      Count   Category
A         100     Cat1
C         10      Cat2
D         40      Cat1 
E         30      Cat3
H         3       Cat3
Z         20      Cat2
M         50      Cat10

所以现在我想添加Category列,具体取决于Name列中的值.如果Name =(A,D),Category ='Cat1'等等.

这只是我给出的一个简单例子.我有大量的名称和类别,所以我想要一个紧凑的语法.我怎样才能做到这一点？

编辑:我已经更改了示例以更好地满足我的需求,因为名称可以是任何数字.很抱歉以前不太清楚.

我一直在寻找一种方式使用绘制facet_grid中ggplot2,只有显示器短短选择方面.说我有以下情节:

一直在寻找一种快速方法,例如,只绘制方面1和3.

#data
y<-1:12
x<-c(1,2,3,1,2,3,1,2,3,1,2,3)
z<-c("a","a","a","b","b","b","a","a","a","b","b","b")
df<-as.data.frame(cbind(x,y,z))

#plot

a <- ggplot(df, aes(x = z, y = y,
  fill = z))
b <- a + geom_bar(stat = "identity", position = "dodge")
c <- b + facet_grid(. ~ x, scale = "free_y")
c

显然我想出了如何首先删除我的数据,但这当然可以分配,ggplot2即使只是轻推也是最受欢迎的.

我正在使用lattice :: wireframe来创建一个表面.我需要更改颜色,以便它取决于x或y变量(而不是z).该怎么做？文档说明自动选择颜色取决于高度(例如z).

谢谢!格奥尔基

我正在尝试绘制堆积条形图,geom_bar并使用条形图中的每个类别标记每个类别.由于某些类别的值较小,因此条形图的相应段的高度有时很小.所以,我正在尝试使用调整标签的大小geom_text.
我试图定义一个名为的矢量,size它根据我试图绘制的变量的值而变化,但是,虽然标签的大小确实因类别而异,但它似乎与值无关.此外,我不知道为什么我在图表的右侧获得了我的标签尺寸的图例.
这是我正在使用的代码的剥离版本:

library(ggplot2)
library(plyr)
library(scales)

Var1 = as.factor(rep(c("A", "B", "C", "D", "E", "F"),2))
Var2 = as.factor(rep(c("Y1","Y2"),each=6))
Freq = c(0.4, 0.1, 0.3, 0.1, 0.05, 0.05,0.2,0.2,0.3,0.2,0.05,0.05)
Data = data.frame(Var1, Var2, Freq)
Data <- ddply(Data, .(Var2), mutate, y = cumsum(Freq)-Freq/2)

size = ifelse(Data$Freq > 0.05, 10, 3)
label = paste(round(Data$Freq*100,0),"%", sep = "")
p = ggplot(data = Data, aes(x = factor(''), y = Freq, fill = Var1)) +
  geom_bar(stat = "identity",position = "fill", width = 1) …