ggplotオブジェクトをパイプ転送する方法は？

Question

私はmagrittrのパイプでggplotオブジェクトに定義されたカスタム関数を使いたいと思います。しかし、私は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

プロットオブジェクトを想定しない関数を定義し、通常のように追加することができます（ggplot）。あなたがRで、演算子の優先順位を変更することはできません

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


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