Jak mogę połączyć wiele elementów ggplot2 w zwrot funkcji?

Question

Gdy próbuję ręcznie tworzyć pewne elementy ggplot2 działce, to działa dobrze:

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

Ale gdy próbuję związać kilka kompozycji do funkcji, pojawia się błąd:

> 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 

Czy brakuje mi czegoś w notacji ggplot2 do poprawnego łączenia elementów wewnątrz ciała funkcyjnego z ggplot2?

Answer 1

ggplot2 obsługuje "list" z następujących elementów:

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

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

można przechowywać na liście dowolny kawałek, który ggplot2 powraca funkcyjnych, w tym laboratoriów(), wybiera(), itp, a następnie za pomocą "+" dla warstwy bazowej bind ggplot2 i elementu na liście.

Prawdopodobnie ta funkcja nie jest powszechnie znana, ale jest bardzo przydatna, gdy ktoś chce ponownie użyć elementu.