Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/67.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
使用ggplot在R中添加错误条_R_Hmisc - Fatal编程技术网
Fatal编程技术网
  • r/
  • 使用ggplot在R中添加错误条

使用ggplot在R中添加错误条

r

使用ggplot在R中添加错误条,r,hmisc,R,Hmisc,我想用LWP在R中绘制两个分类变量（treat） 我想更改点（填充）的颜色，以符合可变根路径（每个处理一个点） 如果差异显著或不显著，我还想添加一个符号 Plants.means<-aggregate(Plants[10:44],Plants[c(6,9)],mean,na.rm=TRUE) SE<-function(x)(sd(x,na.rm=TRUE)/ (length(x)-sum(is.na(x)))^0.5) ggplot(Plants.means, aes(x=Tr

我想用LWP在R中绘制两个分类变量（treat）

我想更改点（填充）的颜色，以符合可变根路径（每个处理一个点）

如果差异显著或不显著，我还想添加一个符号

Plants.means<-aggregate(Plants[10:44],Plants[c(6,9)],mean,na.rm=TRUE)

SE<-function(x)(sd(x,na.rm=TRUE)/ (length(x)-sum(is.na(x)))^0.5)


ggplot(Plants.means, aes(x=Treat, y=Yield, group=1)) +
geom_errorbar(width=.1, aes(ymin=Yield-SE(Plants.means$Yield), ymax=Yield+SE(Plants.means$Yield))) +
geom_point(shape=21, size=3, fill="white") +
ylim(0,1750)

Plants.means正如Ben所说，你可能想要这样的东西（因为没有提供数据，所以不必进行测试：


with( Plants.means,
               errbar(x =Treat, y = LWP_Meas2, 
                                yplus =  LWP_Meas2 + SE( LWP_Meas2), 
                                yminus = LWP_Meas2 - SE( LWP_Meas2), 
       add=T,na.rm=TRUE, col=c("blue", "hotpink"))
      )



error
SE
是一个函数，而不是一个数值；您可能想要
SE（某物）
…我如何在每组点旁边添加文本“ns”和“*”来表示它们是否显著不同？

error <- function(x)(qt(0.975,df=length(x)-1)*sd(x)/sqrt(length(x)))

ggplot(Plants.means,aes(x=Treat, y=Yield, colour=rootpatH, group=rootpatH)) +
geom_errorbar(aes(ymin=Yield-error(Plants.means$Yield),ymax=Yield+error(Plants.means$Yield)), colour="black",width=.1, position=pd) +
geom_point(position=pd, size=4)