如何在ggplot2箱线图中添加带图例的均值标识？

我来帮你搞定这个问题！你当前的代码里直接给stat_summary指定了color="steelblue2"，这种硬编码的颜色属性不会触发图例生成——ggplot的图例是基于「美学映射（aes）」来创建的，得把颜色和一个“虚拟变量”绑定起来才行。

下面是具体的解决方案，我会用示例数据（比如mtcars的mpg变量）来演示，你可以直接替换成自己的df和x变量：

# 加载包
library(ggplot2)

# 示例数据（替换成你的df）
df <- mtcars
x <- "mpg"

# 修改后的代码
p2 <- ggplot(df, aes("", !!sym(x))) +
  geom_boxplot() +
  # 把color放到aes里，用一个字符串作为虚拟分类变量
  stat_summary(fun = mean, geom = "crossbar", 
               aes(color = "均值"), width = 0.5) +
  # 自定义颜色，把"均值"映射到你想要的steelblue2
  scale_color_manual(values = c("均值" = "steelblue2")) +
  # 调整图例标题（可选）
  labs(color = "统计量", x = "") +
  # 调整主题（可选，让图例更美观）
  theme_minimal()

print(p2)

关键步骤解释： #

• 把颜色放到aes()中：aes(color = "均值")相当于创建了一个只有“均值”这一类的虚拟变量，ggplot会自动为这个变量生成图例；
• width = 0.5：让均值的十字线（crossbar）更窄，避免和箱线图的箱体重叠；
• scale_color_manual()：用来指定你想要的颜色，确保图例里的颜色和均值线颜色一致；
• labs(x = "")：因为你的x轴是空白的（aes("", !!sym(x))），这里可以把x轴标题去掉，让图表更整洁。

如果想要用其他几何图形（比如点、线段）来标识均值，只需要修改geom参数即可，比如geom = "point"，同样把color放到aes里就能生成图例。

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