如何在 R 中的 barplot 中添加 1 个 SD 误差线

Question

首先，我确实尝试点击下面的链接（以及其他一些谷歌的努力......）：

Grouped barplot in R with error bars

我的数据集非常小（而且对于任何类型的编程新手，R 仍然让我很困惑）。 我的空间数据看起来像这样的假数据：

Site1 <- c(1, 2, 3, NA, 3, 4, 8, 1, 4)
Site2 <- c(2, 4, 8, 8, 2, NA, 1, 2, 5)
Site3 <- c(5, NA, 4, NA, 8, 1, 3, 4 ,6)
my.data <- cbind(Site1, Site2, Site3)
my.data <- cbind(Site1, Site2, Site3)
my.data <- data.frame(a = c("during", "during", "during", "during",     "after", "after", "after", "after", "after"), my.data)
colnames(my.data) <- c("time", "GA", "GI", "DI")

我想创建每个站点均值的分组条形图，其中误差条表示 1 个标准差，其中“期间”和“之后”按站点（GA、GI、DI）分组。我试图通过创建一个均值数据框并绘制它们来做到这一点。效果很好。除了我不知道如何添加误差线。我将不胜感激任何帮助。我知道这是一个基本问题，但在编码方面我还处于起步阶段。是的。

Answer 1

这应该可以解决。请注意，我使用您提供的链接中的代码绘制了 geom_errorbar。而且它似乎工作得很好！

您的问题是您的数据没有正确形成。通过this link 一次

代码-

Site1 <- c(1, 2, 3, NA, 3, 4, 8, 1, 4)
Site2 <- c(2, 4, 8, 8, 2, NA, 1, 2, 5)
Site3 <- c(5, NA, 4, NA, 8, 1, 3, 4 ,6)
my.data <- cbind(Site1, Site2, Site3)
my.data <- cbind(Site1, Site2, Site3)
my.data <- data.frame(a = c("during", "during", "during", "during","after", "after", "after", "after", "after"), my.data)
colnames(my.data) <- c("time", "GA", "GI", "DI")

library(reshape2)
library(dplyr)
data <- reshape(my.data,direction="long", varying=names(my.data)[-1],
                timevar="Site", times=names(my.data)[-1], v.names="value")
df <- data %>% 
  group_by(Site,time) %>%
  summarize(Mean=mean(value,na.rm=T),SD=sd(value,na.rm=T))

library(ggplot2)
ggplot(df, aes(x=Site,y=Mean,fill=time)) +
  geom_bar(position="dodge",stat="identity",color="black") +
  geom_errorbar(aes(ymin=Mean-SD,ymax=Mean+SD),width=0.2,position=position_dodge(0.9))

输出：