R 如何在带有百分比的条形图上添加错误条

新来的R，提前道歉。 使用带有百分比的ggplot2创建附着的条形图

我正在尝试向它添加错误条，但我似乎找不到这样做的方法。我不确定我的数据是否能正常工作，或者是否需要修改，数据表也在下面

我似乎不知道如何保持百分比和添加错误条。我尝试了各种方法

geom_errorbar

，但这不起作用。我尝试了以下方法，但错误条缺失，列出了平均值，没有百分比：

SI_avgs <- Shift_Injuries %>%
  group_by(Shift) %>% 
  summarize(Avg = mean(counnt),
        SD = sd(counnt),
        N = n(counnt)) %>% 
  ungroup() %>% 
  mutate(L_CI = Avg - 1.96 * sqrt(Avg * (1 - Avg) / N)) %>% 
  mutate(U_CI = Avg + 1.96 * sqrt(Avg * (1 - Avg) / N))
SI_avgs
ggplot(SI_avgs, aes(Shift, Avg)) +
  geom_col(fill = "royalblue1") + 
  geom_errorbar(aes(ymin = L_CI, ymax = U_CI), width = .25)

SI_平均值%
分组依据（班次）%>%
汇总（平均值=平均值），
SD=SD（connt），
N=N（concent））%>%
解组（）%>%
变异（L_CI=Avg-1.96*sqrt（Avg*（1-Avg）/N））%>%
变异（U_CI=Avg+1.96*sqrt（Avg*（1-Avg）/N））
SI_平均值
ggplot（SI_平均值，aes（偏移，平均值））+
geom_col（fill=“royalblue1”）+
几何误差条（aes（ymin=L_CI，ymax=U_CI），宽度=0.25）

---

如有任何建议，将不胜感激

使用

geom\u-bar

代替

geom\u-col

，然后使用

geom\u-errorbar

ggplot(data) +
    geom_bar( aes(x=Shift, y=Avg), stat="identity", fill="royalblue1") +
    geom_errorbar( aes(x=Shift, ymin=Avg-sd, ymax=Avg+sd), width=0.25)

提出一个人们可以帮助解决的问题。这包括一个数据样本（而不是它的图片），以及一个关于这一切没有起作用的清晰解释。