在R 3.5.3中使用ggplot为分面网格添加注释文本时遭遇美学长度错误的技术咨询

这个错误的核心原因是你的geom_text()默认继承了主图ggplot()函数里定义的x、y、fill美学映射，但你的注释数据框datatxt里并没有这些变量，而且数据行数（3行）和主图数据（12行）不匹配，导致ggplot无法对齐美学长度。

下面是具体的修复步骤和完整可运行代码：

第一步：修正注释数据框的创建 #

你原来的datatxt创建代码有语法错误，会导致变量类型异常，改成标准的data.frame创建方式：

datatxt <- data.frame(
  pop = c("JN200A-OBL","JN200B-OBL","JN200C-OBL"),
  labels = rep("N = 20 per treatment", 3)
)

第二步：给geom_text()设置独立的美学映射 #

使用inherit.aes = FALSE让geom_text()不继承主图的美学，同时明确指定注释的位置（比如每个分面的右上角），确保和分面变量pop对应：

pl + geom_text(
  data = datatxt,
  aes(x = Inf, y = Inf, label = labels),
  hjust = 1.1,  # 水平向右偏移，避免超出图框
  vjust = 1.1,  # 垂直向上偏移
  inherit.aes = FALSE  # 关键：禁止继承主图的x/y/fill映射
)

完整可运行代码 #

Tr<-c("Sorghum Male \n Sorghum Female","Sorghum Male \n Wheat Female","Wheat Male \n Sorghum Female","Wheat Male \n Wheat Female")
Treatment<-c(rep(Tr,3))
Matingdiet<-c(rep(c("Same diet","Cross diet","Cross diet", "Same diet"),3))
Rejection<-c(0.05, 0.00, 0.10, 0.00, 0.00, 0.05, 0.05, 0.00, 0.05, 0.05, 0.05, 0.05)
d<-as.data.frame(cbind(Treatment,Rejection, Matingdiet))
d$pop<-c(rep("JN200A-OBL",4),rep("JN200B-OBL",4),rep("JN200C-OBL",4))
d$Rejection<-as.numeric(as.character(d$Rejection))
d$pop<-as.factor(d$pop)

# 修正后的注释数据框
datatxt <- data.frame(
  pop = c("JN200A-OBL","JN200B-OBL","JN200C-OBL"),
  labels = rep("N = 20 per treatment", 3)
)

pl<-ggplot(data = d, aes(x=Treatment, y=Rejection, fill=Matingdiet))+
  geom_col()+
  facet_wrap(~pop)+
  labs(fill="Mating pair type", y = "Proportion of mates rejected")+
  ylim(0,1)+
  theme(axis.text.x = element_text(angle = -60, hjust = 1, vjust = -1))+
  theme(plot.background = element_blank(),
        panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank())

# 添加注释的正确写法
pl + geom_text(
  data = datatxt,
  aes(x = Inf, y = Inf, label = labels),
  hjust = 1.1,
  vjust = 1.1,
  inherit.aes = FALSE
)

额外说明 #

• 如果想把注释放在其他位置，比如每个分面的底部中间，可以把x设为2（因为Treatment有4个水平，2是中间位置），y设为0.1，同时调整hjust=0.5。
• inherit.aes = FALSE是解决这类继承美学冲突的关键，它让geom_text()只使用你明确指定的映射，不会自动继承主图的x、y、fill等。

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