ggplot2中facet_grid各分面添加匹配行列的文本标签问题

问题核心原因 #

facet_grid为双维度分面（行分面+列分面），添加文本层时如果没有同时指定两个分面维度的分组映射，就会出现文本无法精准匹配对应分面的问题，和facet_wrap的单维度分面匹配逻辑有区别。

操作步骤 #

• 提前整理好标签数据集，需包含3类信息：
  • 每个分面对应的两个分面维度的取值（本案例中为species、season）
  • 每个标签在对应分面内的x、y坐标
  • 每个分面要显示的标签文本
    已构建的labels数据集完全符合要求，无需调整。
• 在原有绘图代码中新增文本层，将标签数据集传入geom_text()（需要带背景的文本框可替换为geom_label()），明确映射坐标、标签文本即可，ggplot会自动根据两个分面变量的取值把文本放到对应分面的指定坐标。

完整可运行代码 #

library(ggplot2)

# 测试数据集
test<- structure(list(group = c(1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 
3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5), species = c("A", 
"A", "A", "A", "A", "B", "B", "B", "B", "B", "C", "C", "C", "C", 
"C", "A", "A", "A", "A", "A", "B", "B", "B", "B", "B", "C", "C", 
"C", "C", "C"), value = c(10, 7, 4, 3, 1, 9, 3, 2, 2, 1, 6, 4, 
3, 1, 1, 4, 3, 3, 2, 1, 10, 9, 6, 3, 1, 7, 7, 4, 2, 1), season = c("spring", 
"spring", "spring", "spring", "spring", "spring", "spring", "spring", 
"spring", "spring", "spring", "spring", "spring", "spring", "spring", 
"fall", "fall", "fall", "fall", "fall", "fall", "fall", "fall", 
"fall", "fall", "fall", "fall", "fall", "fall", "fall")), row.names = c(NA, 
-30L), class = "data.frame")

# 标签数据集
labels<- structure(list(label = c("n=1", "n=2", "n=3", "n=4", "n=5", "n=6"
), species = c("A", "B", "C", "A", "B", "C"), season = c("spring", 
"spring", "spring", "fall", "fall", "fall"), x = c(4, 4, 4, 4, 
4, 4), y = c(8, 8, 8, 8, 8, 8)), row.names = c(NA, -6L), class = "data.frame")

# 绘图代码
ggplot(test, aes(x=group, y=value))+
  geom_point(size=2, show.legend=F)+
  geom_line()+
  # 新增的自定义文本层
  geom_text(data = labels,
            aes(x = x, y = y, label = label),
            size = 3.5)+
  facet_grid(season ~ species, scales= "fixed")+
  xlab("")+
  ylab("")+
  scale_x_continuous(limits = c(1,5), breaks=seq(1,5,1))+
  theme_light()+
  theme(strip.text = element_text(face = "bold", color = "black",
                                  hjust = .5, size = 10),
        strip.background = element_rect(color = "black"),
        panel.border = element_rect(color="black"), 
        panel.grid.minor.x= element_blank(),
        panel.grid.minor.y = element_blank())

样式调整提示 #

• 若需要带边框/背景的文本框，将geom_text替换为geom_label，可通过fill参数设置背景填充色，label.size调整边框粗细
• 若不同分面需要标签放在不同位置，直接修改labels数据集中对应行的x、y值即可，无需修改绘图代码
• 注意保证labels数据集中分面变量的取值、类型和主数据集完全一致，避免出现标签错配、不显示的问题

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