在ggplot二维facet_grid中添加geom_text：ann_text匹配原理咨询

首先，咱们先明确你的分面规则：facet_grid(gear ~ cyl)意味着你的图是按行=gear，列=cyl来拆分子图的，每个子图对应一个gear和cyl的组合。

接下来看geom_text的匹配逻辑，这本质是ggplot图层数据和分面变量的关联规则：

• 当你给geom_text指定单独的data（也就是你的ann_text）时，ggplot会先检查这个数据框里有没有和分面变量（gear、cyl）同名的列；
• 如果有，就会把该数据行的文本，放到对应变量值匹配的子图里；
• 如果没有某个分面变量（比如你的ann_text里没有gear），ggplot会默认把这个文本重复显示在该分面变量所有水平对应的子图中。

结合你的代码具体分析 #

你的ann_text里只包含了cyl这个分面变量：

• 行cyl=6对应的text1，会出现在所有gear行（3、4、5）的cyl=6列子图里；
• 行cyl=8对应的text2，会出现在所有gear行的cyl=8列子图里；
• 而cyl=4的列子图，因为ann_text里没有对应cyl值的行，所以不会显示任何文本。

如何给每个子图添加唯一的文本？ #

如果想让每个gear+cyl的子图都有专属文本，只需要在ann_text里同时包含gear和cyl两个分面变量就行，比如：

library(ggplot2)
# 构造包含所有分面组合的标注数据
ann_text <- data.frame(
  mpg = c(14,15,16,17,18,19),  # 每个子图的文本位置
  wt = c(4,5,3.5,4.5,3,4),
  lab = c("gear3-cyl6", "gear3-cyl8", "gear4-cyl6", "gear4-cyl8", "gear5-cyl6", "gear5-cyl8"),
  gear = factor(c(3,3,4,4,5,5)),  # 匹配分面行变量
  cyl = factor(c(6,8,6,8,6,8), levels = c("4","6","8"))  # 匹配分面列变量
)

p <- ggplot(mtcars, aes(mpg, wt)) + 
  geom_point() + 
  facet_grid(gear ~ cyl) + 
  geom_text(data = ann_text, aes(label = lab))

这样每个子图就只会显示对应gear+cyl组合的文本了。

补充个小细节：ggplot匹配分面时，会优先看变量的水平（factor的levels），所以如果你的主数据里cyl是factor类型，标注数据里的cyl最好保持相同的levels，避免出现匹配错位的情况。

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