はてなブックマーク

barplot()で平均値＋標準偏差のエラーバーを描く 図の例 コード #データ入力 group<-c(10,20,30)　#群 m.data<-c(0.079,0.102,0.146)　#平均値 sd.data<-c(0.022,0.031,0.026)　#標準偏差 #y軸の最大値を指定 yRoof=round(max(m.data+sd.data)*1.2, 1) #棒グラフ graph1<-barplot(m.data,names=group, ylim=c(0,yRoof), xlab="Amount of drug (mg/kg)", ylab="Responses (/sec)", col="royalblue3", space=0.5) #上向きのエラーバー arrows(graph1,m.data,graph1,m.data+sd.data,angle=90,length=