使用facets分面与aes颜色参数时，正确定位geom_text标签

你的问题出在没有为标签设置与箱线图匹配的位置偏移，同时没有在geom_text的美学映射中指定分组变量（treat），导致所有标签都堆叠在每个x轴类别的中心位置。以下是两种可行的解决方案：

方法1：修正现有geom_text的位置 #

需要在geom_text中添加分组映射和位置偏移，确保标签与对应箱线图对齐：

步骤1：保持现有数据计算不变 #

library(tidyverse)

# 示例数据
location = rep(c("Bank", "Crop"),each=45)
treat = rep(c("field" ,"30","40"),30) 
value = c(1:90) 
storage = rep(c("fresh", "frozen"),45)
df = data.frame(location, treat, storage,value)

# 计算标签数据
test.dat <- df %>% 
  group_by(location,treat, storage) %>% 
  summarise(mean.h20 = round(mean(value,na.rm=TRUE),0), 
            total = n(),
            .groups = "drop") # 显式取消分组，避免后续绘图警告

步骤2：修改绘图代码 #

重点修改geom_text部分：

• 在aes中加入group=treat，让ggplot识别分组
• 添加position=position_dodge(.9)，与箱线图的偏移宽度一致
• 调整y值（比如设为5）避免标签与坐标轴重叠

ggplot(df, aes(x = storage, y=value, fill=treat))+
  geom_boxplot(position=position_dodge(.9))+
  stat_summary(fun=mean, geom="point", shape=18, size=3, color="orange", 
               position=position_dodge(.9)) # 让均值点和箱线对齐
  labs(x="Condition", y="Value")+
  facet_grid(~location)+
  geom_text(data = test.dat, 
            aes(y=5, label = mean.h20, group=treat), # 添加group映射
            position=position_dodge(.9), # 匹配箱线图的偏移
            size=4)

方法2：用stat_summary直接生成标签（更简洁） #

不需要单独计算test.dat，直接用stat_summary生成均值/样本量标签，自动匹配分组位置：

ggplot(df, aes(x = storage, y=value, fill=treat))+
  geom_boxplot(position=position_dodge(.9))+
  stat_summary(fun=mean, geom="point", shape=18, size=3, color="orange", 
               position=position_dodge(.9))+
  # 生成均值标签
  stat_summary(fun=function(x) round(mean(x),0), 
               geom="text", 
               aes(label=..y..), 
               y=5, # 标签位置
               position=position_dodge(.9),
               size=4)+
  # 如果需要添加样本量标签，可以再加一个stat_summary
  stat_summary(fun=function(x) paste("n=", length(x)), 
               geom="text", 
               y=2, # 样本量标签位置（在均值标签下方）
               position=position_dodge(.9),
               size=3, color="gray50")+
  labs(x="Condition", y="Value")+
  facet_grid(~location)

关键说明 #

• position_dodge(.9)的宽度必须和geom_boxplot保持一致，否则标签和箱线图会错位
• 必须在美学映射中指定分组变量（group=treat或fill=treat），让ggplot知道如何对标签进行偏移
• 调整y参数可以控制标签在y轴上的位置，避免遮挡箱线图或坐标轴

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