如何在使用facet_wrap时修改ggplot2箱线图的中位数线颜色？

问题描述 #

在ggplot2中修改箱线图中位数线颜色的常规方法，结合facet_wrap()分面绘制时会失效，无法为每个分面的中位数线正确分配目标颜色。

示例数据 #

set.seed(123)
df <- data.frame(
  group = rep(c("A", "B", "C"), each = 50),
  facet = rep(c("Facet1", "Facet2"), 75),
  value = c(rnorm(50, 10), rnorm(50, 15), rnorm(50, 20))
)

失效的常规代码 #

library(ggplot2)

# 分面后中位数线颜色未正确应用，且跨分面错误连接
ggplot(df, aes(x = group, y = value)) +
  geom_boxplot() +
  stat_summary(fun = median, geom = "line", aes(group = 1), color = "blue") +
  facet_wrap(~facet)

问题原因：aes(group = 1)会强制将所有分面的中位数数据归为同一组，导致中位数线跨分面连接，无法实现每个分面独立设置颜色。

可行解决方案 #

1. 分面场景下的正确代码 #

通过将group参数绑定到分面变量，确保每个分面内的中位数线独立计算与绘制：

ggplot(df, aes(x = group, y = value)) +
  geom_boxplot() +
  stat_summary(
    fun = median,
    geom = "line",
    aes(group = facet),  # 按分面分组，隔离各分面的中位数线
    color = "blue",
    linewidth = 1
  ) +
  facet_wrap(~facet)

2. 不分面场景下的正确代码 #

无需分面时，直接用group = 1即可连接各分组的中位数并设置蓝色：

ggplot(df, aes(x = group, y = value)) +
  geom_boxplot() +
  stat_summary(
    fun = median,
    geom = "line",
    aes(group = 1),
    color = "blue",
    linewidth = 1
  )

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