如何在ggplot箱线图上叠加参考线并解决Aesthetics长度不匹配报错

报错原因 #

报错核心是geom_line默认继承了全局的boots数据集（共20行），但你在aes中为y传入了长度仅为2的向量，ggplot要求图层内的美学映射长度要么为1（全局统一值），要么和图层数据集长度一致，因此触发校验错误。

正确实现方法 #

你只需要为参考线图层单独传入对应长度的独立数据集即可，这种方式也完全兼容你后续用非线性函数生成参考值的需求：

library(data.table)
library(ggplot2)

# 原bootstrap数据生成逻辑不变
boot1 <- data.table(digit = 1, prop = runif(10, 0.25, 0.35))
boot2 <- data.table(digit = 2, prop = runif(10, 0.12, 0.25))
boots <- rbindlist(list(boot1, boot2))

# 新建参考线数据集，每一行对应一个x分类的预期值
# 后续用非线性函数生成的y值可直接整理为此结构
ref_line <- data.frame(
  digit = factor(c(1, 2)),
  expect_prop = c(0.3, 0.17)
)

ggplot(boots, aes(x = factor(digit), y = prop)) + 
  geom_boxplot() + 
  # 单独为参考线图层指定数据集，group=1是为了让分类x轴的多个点能连成一条线
  geom_line(data = ref_line, aes(x = digit, y = expect_prop, group = 1), color = "red", linewidth = 1)

可选优化：分类独立水平参考线 #

如果你的需求是为每个箱线图单独添加水平参考线，而非跨分类的连线，用geom_segment实现效果更清晰：

ggplot(boots, aes(x = factor(digit), y = prop)) + 
  geom_boxplot() + 
  geom_segment(
    data = ref_line, 
    aes(
      x = as.numeric(digit) - 0.2, 
      xend = as.numeric(digit) + 0.2, 
      y = expect_prop, 
      yend = expect_prop
    ), 
    color = "blue", 
    linewidth = 1
  )

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