R语言ggplot添加第二个数据框的组间增幅值报错求助

你的报错object 'y' not found是因为geom_text默认继承了主绘图的美学映射（aes），但你的test1数据框里没有主图中用到的y变量，同时你也没给文本指定具体的显示位置。下面是具体的解决步骤和代码示例：

1. 明确数据关联逻辑 #

确保test1包含和test一致的分面分组变量（比如city），这样文本才能对应到每个分面。

2. 示例代码（含模拟数据） #

先模拟和你结构一致的测试数据，再演示正确的绘图代码：

# 加载必要包
library(ggplot2)
library(dplyr)
library(tidyr)

# 模拟test数据：城市、分组（treat/control）、指标值
set.seed(123)
test <- data.frame(
  city = rep(c("北京", "上海", "广州"), each=100),
  group = rep(c("control", "treat"), each=50, times=3),
  value = c(rnorm(50, 50, 10), rnorm(50, 60, 10),
            rnorm(50, 45, 8), rnorm(50, 55, 8),
            rnorm(50, 55, 12), rnorm(50, 70, 12))
)

# 模拟test1数据：各城市处理组相对对照组的百分比增幅
test1 <- test %>%
  group_by(city, group) %>%
  summarise(mean_val = mean(value)) %>%
  pivot_wider(names_from = group, values_from = mean_val) %>%
  mutate(perc_increase = round((treat - control)/control * 100, 1)) %>%
  select(city, perc_increase)

正确绘图代码 #

# 先计算每个城市的指标最大值，用于设置文本的y轴位置（避免文本压在箱线图上）
city_pos <- test %>%
  group_by(city) %>%
  summarise(y_pos = max(value) + 3)

# 合并增幅数据和位置数据
test1_pos <- left_join(test1, city_pos, by = "city")

# 绘制分面箱线图并添加增幅文本
ggplot(test, aes(x = group, y = value)) +
  geom_boxplot(width = 0.6) +
  facet_wrap(~city) +
  # 关键：指定data为test1_pos，关闭继承美学映射，明确x、y位置和标签
  geom_text(data = test1_pos,
            aes(x = 1.5,  # x轴位置：放在control和treat中间
                y = y_pos,
                label = paste0(perc_increase, "%")),
            inherit.aes = FALSE,  # 必须关闭，否则会继承主图的y变量（test1里没有）
            size = 4,
            fontface = "bold",
            color = "red") +
  labs(title = "各城市处理组vs对照组指标分布", x = "分组", y = "指标值")

关键注意点 #

• inherit.aes=FALSE：这是解决报错的核心，它让geom_text不继承主图的美学映射，避免去test1里找不存在的y变量。
• 指定文本位置：必须给x和y明确赋值，比如把文本放在两个分组中间（x=1.5，因为group是两个水平，对应x轴位置1和2），y轴位置设为该城市指标最大值加偏移量，保证文本在箱线图上方。
• 数据关联：test1必须包含分面变量（比如city），才能和每个分面一一对应。

内容的提问来源于stack exchange，提问作者i.b