如何在ggplot2的ggtitle中访问绘图数据子集的列？

这个问题我之前也碰到过！核心原因是ggtitle()并不在ggplot的数据管道上下文里——你在geom_text(data = . %>% ...)里能用.，是因为这个参数是专门接收数据子集的，而ggtitle()是顶层的标注函数，默认无法直接引用前面过滤后的数据集。

给你几个实用的解决方案：

方案1：提前存储过滤后的数据集（最直观） #

把过滤好的数据单独存成变量，之后不管是绘图还是取标题都直接用这个变量，逻辑清晰不容易出错：

# 先处理数据
audi_data <- mpg %>% filter(manufacturer == 'audi')

# 绘图时直接调用变量
ggplot(audi_data, aes(x = hwy, y = displ, label = model)) +
  geom_point() +
  geom_text(data = . %>% filter(hwy > 28)) +
  ggtitle(unique(audi_data$manufacturer))

方案2：利用ggplot对象的$data属性 #

如果你不想单独存变量，可以通过.$data来访问ggplot对象里绑定的数据集——这里的.在后续图层中代表的是整个ggplot对象，所以可以用它来提取数据：

ggplot(mpg %>% filter(manufacturer == 'audi'), aes(x = hwy, y = displ, label = model)) +
  geom_point() +
  geom_text(data = . %>% filter(hwy > 28)) +
  ggtitle(unique(.$data$manufacturer))

方案3：用大括号包裹ggplot代码（保持管道连贯） #

如果想全程用管道串联数据处理和绘图，可以用大括号改变管道的上下文，让整个ggplot代码块里的.都指向过滤后的数据集：

mpg %>% 
  filter(manufacturer == 'audi') %>%
  {ggplot(., aes(x = hwy, y = displ, label = model)) +
     geom_point() +
     geom_text(data = . %>% filter(hwy > 28)) +
     ggtitle(unique(.$manufacturer))}

这个方法特别适合批量生成多个子集图表的场景，比如结合purrr::map()循环处理不同品牌的数据。

另外补充一点：如果你的子集可能有多个值（比如不小心过滤出多个品牌），用unique()会返回向量，ggtitle()会自动把它转成字符串，但如果想更稳妥，可以用paste(unique(.$manufacturer), collapse = ", ")来处理多值情况。

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