ggplot2分组箱线图stat_summary文本位置重叠问题求助

问题根源 #

1. 自定义mean_sd函数依赖未定义的全局变量df，且用全局最大值统一计算所有文本的y坐标，导致所有文本位置完全重合
2. 未针对每个Component+Label分组计算最小值，无法让文本锚定对应箱线的最小值位置
3. position_dodge宽度与箱线图默认宽度不匹配，导致文本和箱线错位

修改后的完整代码 #

# 重新定义均值标准差文本生成函数，基于当前分组最小值定位
mean_sd <- function(y) {
  group_min <- min(y)
  return(data.frame(
    y = group_min - 5, # 文本放在最小值下方5个单位，可按需调整偏移量
    label = paste0(
      "M = ", round(mean(y), 2), "\n",
      "SD = ", round(sd(y), 2)
    )
  ))
}

# 绘制箱线图并对齐文本位置
ggplot(data.boxplot, aes(x = Component, y = Score, fill = Label)) +
  geom_boxplot(outliers = FALSE, width = 0.7) + # 显式设置箱线宽度，匹配dodge参数
  scale_fill_manual(values = c("#FF5F1F", "#1FC0FF")) +
  stat_summary(
    fun.data = mean_sd,
    geom = "text",
    vjust = 1, # 让文本向上对齐到设定的y位置
    position = position_dodge(width = 0.7), # 与箱线宽度一致，保证文本和箱线一一对应
    size = 3 # 可选：调整文本大小避免拥挤
  ) +
  ylim(5, 105) # 扩展y轴下限，防止文本被截断
  theme_classic()

核心调整说明 #

• 移除全局变量依赖，改为针对每个分组计算最小值，让文本位置跟随对应箱线的最小值动态变化
• 通过group_min - 5设置文本偏移量，可根据数据范围调整数值，确保文本在箱线下方不重叠
• 统一geom_boxplot和position_dodge的宽度参数，保证文本与对应箱线严格对齐
• 添加ylim扩展y轴范围，避免底部文本被图表边界截断

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