绘制带误差bar的统计图,关键点在于计算个统计量
df<-ToothGrowth #这里用的是R自带数据Toothgrowth
df$dose<-as.factor(df$dose) #需要将...len,by=list(df$supp,df$dose),mean) #一定要加list,分组计算均值
colnames(dataMean)<-c("supp","dose","mean") #将得到的均值...dataStd)<-c("supp","dose","sd")
nd<-merge(dataMean,dataStd,by=c("supp","dose"),all=T) #将均值和标准差按照相应的分组合并