如何为多数据集箱线图的中位数绘制多条连线

我完全懂你的困扰——很多示例都是单数据集的中位数连线，当你尝试给多组数据分别连中位数时，用stat_summary(fun.y=median, geom="line", aes(group=1))只会画出一条横贯所有组的线，完全达不到目标效果。别慌，这其实是分组设置的问题，调整一下group参数就能解决！

核心问题分析 #

你用group=1时，ggplot会把所有数据当成一个整体组，所以会把所有中位数点连在一起成一条线。而我们需要让ggplot识别出“哪些中位数属于同一组，需要连在一起”，这就得把group设置为你的分组变量（比如你用来区分不同线的那个变量）。

具体解决方案（附示例代码） #

假设你的数据是长格式（这是ggplot最友好的格式），比如包含：

• 一个分类x轴变量（比如不同类别category）
• 一个分组变量（比如group，用来区分要连的不同线）
• 数值变量value

先构造模拟数据来演示：

library(ggplot2)

# 生成模拟数据：3个类别，2个分组，每个组有20个样本
set.seed(123)
df <- data.frame(
  category = rep(c("类别1", "类别2", "类别3"), each = 40),
  group = rep(c("组A", "组B"), each = 20, times = 3),
  value = rnorm(120, mean = rep(c(5, 7, 9), each = 40) + rep(c(0, 1), each = 20, times = 3), sd = 1)
)

然后绘制箱线图+分组中位数连线，关键代码在这里：

ggplot(df, aes(x = category, y = value, fill = group)) +
  # 绘制箱线图，用position_dodge让不同分组的箱线错开
  geom_boxplot(position = position_dodge(width = 0.8)) +
  # 重点：把group设为你的分组变量，同时用position_dodge对齐箱线
  stat_summary(
    fun = median,  # 计算中位数
    geom = "line", # 用线连接
    aes(group = group, color = group),  # 按group分组连线，同时设置线的颜色对应分组
    position = position_dodge(width = 0.8)  # 和箱线的dodge宽度一致，保证对齐
  ) +
  labs(title = "多组箱线图中位数分组连线", x = "类别", y = "数值") +
  theme_minimal()

关键注意事项 #

1. 对齐问题：position_dodge(width = 0.8)必须和geom_boxplot的dodge宽度保持一致，否则连线会和对应的箱线错位。
2. 分组变量：一定要把aes(group = ...)里的变量设置为你需要连线的分组（比如示例中的group），而不是1。
3. 颜色区分：加上color = group可以让连线颜色和箱线填充色对应，图表可读性更强。

如果你的数据是宽格式（比如每个分组是单独的列），可以先用tidyr::pivot_longer()转成长格式再按上面的方法操作哦。

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