在 R 中向 barplot() 添加标准差

Question

在 R 中，我有以下数据框：

  Group mean  sd
1     1   21.2  5.202563
2     2   28.4  6.113737
3     3   21.8  2.529822

我想创建一个条形图，其中平均值和标准差作为平均值顶部的箭头，如下例所示：

这是我目前的代码：

barCenters <- barplot(height = Ymeans12stdev$mean,main = "Average Time per Group",
                  xlab = "Group", ylab = "Time")

但是，我没有成功添加标准偏差条。谁能解决这个问题？ :)

Answer 1

使用基础 R，您可以使用函数 arrows() ：

barCenters <- barplot(height = Ymeans12stdev$mean,
                      main = "Average Time per Group", xlab = "Group", ylab = "Time")
arrows(barCenters, Ymeans12stdev$mean-Ymeans12stdev$sd,
       barCenters, Ymeans12stdev$mean+Ymeans12stdev$sd,angle=90,code=3)

参数angle=90 指定绘制“扁平”箭头（即在垂直箭头之上的水平条），参数code=3 指定在垂直线的两端绘制箭头。您可以添加参数length 来增加/减少箭头水平条的大小。