¿Cómo puedo combinar múltiples elementos ggplot2 en el retorno de una función?

Question

Si trato de componer manualmente algunos elementos de una parcela ggplot2, funciona muy bien:

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

Pero si intento para agrupar algunos de la composición en una función, me sale un error:

> 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 

¿Me falta algo en la notación ggplot2 para combinar correctamente ggplot2 elementos dentro de un cuerpo de función?

Answer 1

ggplot2 apoya "lista" de los elementos:

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

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

que pueda mantenerse en una lista cualquier pieza que ggplot2 devuelve la función, incluyendo laboratorios(), opta(), etc, y luego usar "+" para bind capa base ggplot2 y la pieza en la lista.

Probablemente esta característica no es muy conocida, pero es muy útil cuando alguien quiere volver a utilizar un elemento.