ggplot2分组柱状图添加SEM误差条错位问题求助

你的问题出在误差条未绑定分组变量，且position_dodge设置不统一，导致ggplot无法识别误差条该对应哪个柱子。下面是修复后的代码和说明：

修复后的完整代码 #

# 统一定义dodge对象，确保柱子和误差条错开幅度一致
dodge <- position_dodge(width = 0.9)
  
data %>%
  group_by(Questions, role) %>%
  summarise(mean_score = mean(as.numeric(Answers)),
            sem = sd(as.numeric(Answers)) / sqrt(n()),
            .groups = "keep") %>%
  # 将fill=role放到全局aes，让ggplot识别分组依据
  ggplot(aes(x = reorder(Questions, -mean_score), 
             y = mean_score, 
             fill = role)) +
  geom_col(position = dodge) +
  geom_errorbar(aes(ymin = mean_score - sem, 
                    ymax = mean_score + sem), 
                width = 0.2, 
                position = dodge) +  # 复用同一个dodge对象
  xlab("") +
  ylab("Mean score") +
  coord_flip() +
  theme_classic() +
  scale_fill_viridis_d()

关键修复点 #

1. 绑定分组变量：把fill = role加入全局aes，让ggplot明确图表的分组逻辑，误差条会自动和对应分组的柱子对齐。如果不想全局映射，也可以在geom_errorbar的aes里单独添加group = role。
2. 统一position_dodge：用同一个定义好的dodge对象给geom_col和geom_errorbar，确保两者的错开宽度完全匹配，避免出现偏移或重叠。

修改后，误差条会准确显示在对应分组的柱子上方，不会再重叠到每组中间的柱子上。

内容的提问来源于stack exchange，提问作者C_bath