访问 ggtitle 中绘图的数据

我想知道是否可以以某种方式访问​​所提供数据的列ggplot2标题的图表。所以类似这样的事情：

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

我经常创建像上面的示例中那样的绘图来仅绘制子集，并且希望自动为子集添加标签。目前，.内不会被承认ggtitle但在之内geom_text这是工作。

EDIT:
因为我收到了来自 @Brian 的非常好的评论并标记为重复，是否有可能使用此解决方案{}内的诡计dplyr::group_by功能？这在某种程度上不起作用。我很想为每个组创建单独的图，但不知何故，只有完整的数据框才会进入ggplot call.

mpg %>%
  group_by(manufacturer) %>% {
    ggplot(., aes(cyl, displ, color=manufacturer)) +
      geom_point() + 
      ggtitle(unique(.$manufacturer))
  }

它说的是奥迪，但在单个图中打印了所有制造商。

我会尝试以下操作，因为无法通过管道连接到外部aes().

ggplot(mpg %>% filter(manufacturer == 'audi'), 
       aes(x = hwy, y = displ, label = model)) + 
  geom_point() + 
  geom_text(data = . %>% filter(hwy > 28)) +
  facet_wrap(~manufacturer)+
  theme(strip.background = element_blank(),
        strip.text = element_text(hjust = 0, size = 14))

这个想法是使用带有空条背景的小面。如果有更多名称或变量，则必须使用例如创建一个额外的分面变量mutate(gr = "title")

mpg %>% 
  mutate(title="This is my plot") %>% 
ggplot(aes(x = hwy, y = displ, col=manufacturer)) + 
  geom_point() + 
  facet_wrap(~title)+
  theme(strip.background = element_blank(),
        strip.text = element_text(hjust = 0, size = 14))

Edit

当您问第二个问题时，这里有两种为每个组创建单独图的解决方案

# first solution
p <- mpg %>%
  group_by(manufacturer) %>% 
     do(plots= ggplot(., aes(cyl, displ)) +
      geom_point() + 
      ggtitle(unique(.$manufacturer))
   )
p %>% slice(1) %>% .$plots


# second solution
mpg %>%
  nest(-manufacturer) %>%
  mutate(plot = map2(data, manufacturer, ~ggplot(data=.x,aes(cyl, displ))+
           geom_point() +
           ggtitle(.y))) %>% 
  slice(1) %>% .$plot 

或者使用保存数据

map2(paste0(p$manufacturer, ".pdf"), p$plots, ggsave)