如何使用百分比在条形图上添加误差线

Question

New to R, apologies in advance. Created the attached barplot using ggplot2 with percentages

I am trying to add error bars to it and I can't seem to find a way to do so. I'm not sure if my data will work as is or if it needs to be altered, data table is below as well

I can't seem to figure out how to keep percentages and add error bars. I have tried geom_errorbars in various ways but this will not work. I tried the following and the error bars are missing and averages are listed, no percentages:

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)

Any suggestions would be appreciated.

Answer 1

use geom_bar instead of geom_col and then use geom_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)