r - 如何访问已传递给 ggplot() 的数据框？

Question

我想设置字符串 N=xxx作为我图的标题，其中xxx是我作为 data 传递的数据框中的观察值数量论据 ggplot() .在我当前的代码中，我第二次明确地将该数据帧作为参数传递给 sprintf()我在 labs() 里面使用的:

ggplot(mtcars, aes(mpg, hp)) + 
    labs(title=sprintf("N=%i", nrow(mtcars))) + 
    geom_point()

这确实会产生所需的标题，但它不适用于更复杂的任务:我使用 dplyr管道来构建正在绘制的数据框，因为这是一个耗时的过程，我不想第二次重复管道来获取示例中的行数。

那么，如何访问作为参数传递给 ggplot() 的数据框？从用于修改绘图的函数的参数规范中？

Answer 1

mtcars %>% {
  ggplot(., aes(mpg, hp)) + 
  labs(title = paste("N =", nrow(.))) + 
  geom_point()
}

注意包裹整个 ggplot的时候调用 {...}花括号，你必须使用 . ggplot(., ...) 中数据参数的点代词.然后您可以使用 . 回调该对象调用中任何地方的代词。