如何在ggplot的背靠背柱状图中添加箱线图？

一、解决geom_boxplot()的“对象未找到”错误 #

这个错误基本是数据格式或映射逻辑的问题，背靠背柱状图通常靠把一组数据取负值实现左右分布，箱线图需要对应匹配分组的原始数据：

• 确保数据框里有明确的分组列（比如category）、正负转换后的绘图数值列，同时保留原始数值列用于计算箱线统计量。
• 检查aes()映射，group参数必须明确指定分组（比如interaction(category, direction)），避免ggplot无法识别分组逻辑。

示例数据与修正后的箱线图代码：

# 构造示例数据
df <- data.frame(
  category = rep(c("北极", "南极"), each = 100),
  direction = rep(c("左侧", "右侧"), each = 100),
  raw_value = c(rnorm(100, -4, 1.5), rnorm(100, 4, 1.5)),
  plot_value = c(rnorm(100, -4, 1.5), rnorm(100, 4, 1.5)) # 正负转换后的绘图值
)

# 绘制背靠背柱状+箱线图
ggplot(df, aes(x = category, y = plot_value, fill = direction)) +
  geom_col(position = "identity", alpha = 0.7) +
  # 关键：用interaction指定分组，避免对象找不到
  geom_boxplot(aes(group = interaction(category, direction)),
               position = position_dodge(width = 0.8), fill = "gray", alpha = 0.3) +
  theme_classic()

二、绘制IPCC风格的灰色四分位箱体 #

如果用quantile()+geom_vline达不到效果，直接用geom_rect绘制矩形箱体更精准，步骤如下：

1. 预计算每个分组的四分位统计量：

library(dplyr)

quant_stats <- df %>%
  group_by(category, direction) %>%
  summarise(
    q25 = quantile(raw_value, 0.25),
    q75 = quantile(raw_value, 0.75),
    med = median(raw_value),
    # 匹配柱状图的位置偏移，调整箱体宽度
    x_left = as.numeric(factor(category)) - 0.3,
    x_right = as.numeric(factor(category)) + 0.3
  )

2. 叠加灰色箱体与中位数线：

ggplot(df, aes(x = category, y = plot_value, fill = direction)) +
  geom_col(position = "identity", alpha = 0.7) +
  # 添加灰色四分位箱体
  geom_rect(data = quant_stats,
            aes(xmin = x_left, xmax = x_right, ymin = q25, ymax = q75, group = NULL),
            fill = "gray70", alpha = 0.4) +
  # 添加中位数虚线
  geom_hline(data = quant_stats, aes(yintercept = med), linetype = "dashed", color = "black") +
  theme_classic()

三、避坑提示 #

• 正负值要对应：左侧柱状图用负值的话，左侧箱体的统计量也要基于原始负值数据计算，别搞反。
• 箱体宽度要和柱状图匹配：调整x_left和x_right的偏移量，保证箱体刚好覆盖对应柱状图区域。
• 若仍报“对象未找到”，检查数据框列名拼写，或者dplyr分组时有没有误删需要的列。

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