Как перенести объект ggplot?

Question

Я хотел бы использовать пользовательскую функцию, определенную на объекте ggplot, с помощью трубы magrittr. Однако я не могу передать объект ggplot в эту функцию.

Вот простой пример:

library(ggplot2) 
library(magrittr) 

my_plot_function <- function(plot) { 
    plot + geom_hline(yintercept = 3, linetype = 'dashed') 
} 

data(mtcars) 
p <- mtcars %>% 
    ggplot() + 
    geom_point(aes(mpg, wt)) 
my_plot_function(p) 

Было бы замечательно, если бы я мог бы использовать my_plot_function() в цепи следующим образом:

mtcars %>% 
    ggplot() + 
    geom_point(aes(mpg, wt)) %>% 
    my_plot_function() 

Однако он дает ошибку, как только слой передается на my_plot_function() вместо самого сюжета. Как я могу передать сюжет с трубой?

Answer 1

Вы можете попытаться определить функцию, которая не ожидает объекта plot, и просто добавьте его, как обычно в ggplot.

my_plot_function <- function() { 
    geom_hline(yintercept = 3, linetype = 'dashed') 
} 


mtcars %>% 
    ggplot() + 
    geom_point(aes(mpg, wt)) + my_plot_function()