如何在已有ggplot2折线图中手动添加箱线图？

报错原因 #

你遇到的错误是因为geom_boxplot()需要明确的分组信息来区分要绘制的箱线，同时原始数据框中没有2025年的数据，直接添加箱线图时，ggplot无法确定如何分配分组，导致出现"只能每组绘制一个箱线图"的错误。

解决方案 #

需要手动构造包含预计算箱线统计量的数据，同时指定分组和x轴位置。以下是两种可行的实现方式：

方式1：构造箱线统计量数据框，直接绘制

假设你已经预计算好对应原折线（V2红色、V3蓝色）的箱线统计量（最小值、第一四分位数、中位数、第三四分位数、最大值），先把这些值整理成数据框，再添加geom_boxplot()：

# 原始数据
dat <- read.table(text= 
                   "2019            2641.621           2613.385
                   2020            2633.569           2605.428
                   2021            2656.257           2627.863
                   2022            2668.704           2640.147
                   2023            2647.242           2618.982
                   2024            2662.498           2634.032")

# 预计算的2025年箱线统计量，替换成你实际的数值
box_data <- data.frame(
  x = 2025,  # 固定x轴位置
  group = c("V2", "V3"),  # 对应原折线的分组
  min = c(2620, 2600),
  q1 = c(2630, 2615),
  median = c(2645, 2630),
  q3 = c(2660, 2645),
  max = c(2670, 2655)
)

# 绘制图形
library(ggplot2)
ggplot(dat, aes(x = V1))+
  geom_line(aes(y= V2), col="red") +
  geom_line(aes(y = V3), col="blue") +
  # 添加箱线图，用stat="identity"直接使用预计算的统计量
  geom_boxplot(
    data = box_data,
    aes(x = x, ymin = min, lower = q1, middle = median, upper = q3, ymax = max, group = group, color = group),
    stat = "identity",
    width = 0.5  # 调整箱线宽度，避免和折线重叠
  ) +
  # 保持颜色和原折线一致
  scale_color_manual(values = c("V2" = "red", "V3" = "blue"))

方式2：用stat_summary传递预计算的统计函数

如果不想单独构造数据框，可以用stat_summary，自定义返回预计算统计量的函数：

library(ggplot2)

# 自定义返回箱线统计量的函数，替换成你的实际数值
box_stats <- function(x) {
  # 根据分组返回对应的预计算值
  if (unique(x) == "V2") {
    return(data.frame(ymin=2620, lower=2630, middle=2645, upper=2660, ymax=2670))
  } else {
    return(data.frame(ymin=2600, lower=2615, middle=2630, upper=2645, ymax=2655))
  }
}

# 绘制图形
ggplot(dat, aes(x = V1))+
  geom_line(aes(y= V2), col="red") +
  geom_line(aes(y = V3), col="blue") +
  # 添加2025处的箱线图，通过group区分两个系列
  stat_summary(
    data = data.frame(x=2025, group=c("V2", "V3")),
    aes(x=x, group=group, color=group),
    fun.data = box_stats,
    geom = "boxplot",
    width = 0.5
  ) +
  scale_color_manual(values = c("V2" = "red", "V3" = "blue"))

关键注意点 #

• 必须指定group映射，让ggplot知道要绘制两个独立的箱线（对应原有的两条折线）。
• 使用stat="identity"（方式1）或自定义fun.data（方式2）来传递预计算的箱线统计量，而不是让ggplot自动计算。
• 调整width参数可以避免箱线和折线或彼此之间重叠。

内容的提问来源于stack exchange，提问作者e.moran