如何将多个 ggplot2 元素组合到函数的返回中？

Question

如果我尝试手动组合 ggplot2 绘图的某些元素，它工作得很好：

> p <- ggplot(aes(x = mpg, y = hp), data = mtcars)
> p + geom_vline(xintercept = 20) + geom_point(data = mtcars)

但是如果我尝试将一些组合捆绑到函数中，则会收到错误：

> myFunction <- function() {
+   return(
+     geom_vline(xintercept = 20) + geom_point(data = mtcars)
+   )
+ }
> p <- ggplot(aes(x = mpg, y = hp), data = mtcars)
> p + myFunction()
Error in geom_vline(xintercept = 20) + geom_point(data = mtcars) : 
  non-numeric argument to binary operator

我在 < 中遗漏了某些内容吗？用于在函数体内正确组合 ggplot2 元素的 code>ggplot2 表示法？

Answer 1

ggplot2 支持元素的“列表”：

myFunction <- function()
 list(geom_vline(xintercept = 20),
      geom_point(data = mtcars))

p <- ggplot(aes(x = mpg, y = hp), data = mtcars)
p + myFunction()

您可以将 ggplot2 函数返回的任何部分保留在列表中，包括 labs()、opts() 等，然后使用“+”绑定 ggplot2 基础层和列表中的部分。

可能这个功能并不广为人知，但是当任何人想要重复使用某个元素时非常有用。