ggplot2条形图添加分组均值（避免geom_text重叠）及误差棒验证

一、为每个type分组添加均值的正确方法 #

你的问题出在geom_text未结合分组统计逻辑：直接调用mean(myData$varUnlist)会生成全局均值，若直接映射数据列，又会因每行数据都绘制一次导致文本重复。解决办法是用stat_summary按type分组计算均值并绘制文本：

替换原代码中的geom_text行，改为：

stat_summary(geom = "text", fun = mean, 
             aes(label = str_glue('{round(..y.., 1)}')), 
             vjust = -0.5, check_overlap = TRUE)

关键说明： #

• stat_summary会自动按type分组计算均值，避免重复绘制
• ..y..代表stat_summary计算出的均值（因coord_flip后，原x轴转为y轴方向）
• vjust = -0.5用于调整文本在条形上方的位置，避免与条形重叠

二、误差棒看起来一致是否正确？ #

是正确的。你的数据中每个type分组都有63个样本，计算每组的标准误（SE=标准差/√样本量）后会发现，三个组的标准差非常接近，再加上样本量相同，导致标准误几乎一致，因此误差棒视觉上看起来差不多。

你可以用以下代码验证每组的均值和标准误：

myData %>% 
  group_by(type) %>% 
  summarise(均值 = mean(varUnlist),
            标准误 = sd(varUnlist)/sqrt(n()))

计算结果示例：

三个组的标准误数值接近，所以误差棒长度看起来一致是合理的。

完整修改后的代码 #

myData %>% 
  ggplot(aes(varUnlist, type, fill = type)) +      
  coord_flip() +
  geom_bar(stat = "summary", fun.data = mean_se, width = 0.2) +    
  stat_summary(geom = "errorbar", fun.data = mean_se, position = "dodge", width = 0.2) + 
  scale_fill_brewer(palette = "Blues", name = 'type:') +
  # 替换后的分组均值文本
  stat_summary(geom = "text", fun = mean, 
               aes(label = str_glue('{round(..y.., 1)}')), 
               vjust = -0.5, check_overlap = TRUE) +
  labs(x = "x",
       y = "Y的均值",
       title = "X对Y的影响") +
  theme_bw() +
  theme(legend.position = "right",
        legend.background = element_rect(color = "black"),
        legend.margin = margin(5, 5, 3, 3),
        axis.text.x = element_text(angle = 0, hjust = 0.5, face = "bold"),
        plot.title = element_text(hjust = 0.5, face = "bold"),
        axis.text.y = element_text(face = "bold"))

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