バーチャート
xMean <- apply(data, 2, mean, na.rm = T) #グラフの高さ xSd <- apply(data, 2, sd, na.rm = T) #誤差範囲 # 棒グラフを描きます。それから、その座標情報を変数 B に保存する B <- barplot(xMean, ylab = "Length(mm)", xlab = "Group", ylim = c(0, 6)) #誤差バーを描く、lengthは誤差バーのバーの長さを示す、angleを鋭角にするとバーは矢印状となる arrows(B, xMean - xSd, B, xMean + xSd, angle = 90, length = 0.1) arrows(B, xMean + xSd, B, xMean - xSd, angle = 90, length = 0.1)