R语言

请问R怎么画这样的柱状图啊，一组数据一个柱子用什么函数可以画呢?还有误差线

0

重要提示：提问者不能发表回复，可以通过评论与回答者沟通，沟通后可以通过编辑功能完善问题描述，以便后续其他人能够更容易理解问题.

课程推荐：实战秘技，经典案例，一门课程锤炼数据分析师八大能力！

1 个回复

1

brucelu - 大数据、数据仓库、数据挖掘均有涉猎 2016-07-19 回答

这个你可以参考一下代码，主要用到graphics，Hmisc两个包的画图

y<-rnorm(n = 500,mean=2,sd = 0.3)

ymatr<-matrix(y,100,5)

ymeans<-apply(ymatr,2,mean)

ysd<-apply(ymatr,2,sd)

x<-rnorm(n = 500,mean=3,sd = 0.5)

xmatr<-matrix(x,100,5)

xmeans<-apply(xmatr,2,mean)

xsd<-apply(xmatr,2,sd)

t<-rbind(ymeans,xmeans)

barx<-barplot(t,ylim=c(0,4.5),col=c("green","yellow"),beside=TRUE,space =c(0.1,0.5)

              ,legend.text = c("S1", "S2")

              ,args.legend = list(x = "topright")

              ,axis.lty =2,xlab = "Sample",ylab = "Level",axes = TRUE

)

text<-c('1','2','3','4','5')

axis(1, c(1.5,4.2,7,9.5,12), labels = text, tick = FALSE, cex.axis = 0.75,label=FALSE)

axis(1,labels =FALSE)

cl=rgb(140,81,10,maxColorValue=255)

errbar(barx,t,t rbind(ysd,xsd), t-rbind(ysd,xsd),cap=0.01,errbar.col=cl,col=cl,lwd=2,add=T)