Задание и обработка объекта ggplot2 в том же выражении

Question

Я хотел бы построить график GGplot и построить промежуточные шаги. Можно ли обойтись без первого присвоения и последующего построения графика?

p0 <- ggplot(mtcars, aes(mpg, cyl)) + geom_point() 
p0 
p1 <- p0 + scale_x_sqrt() 
p1 
p2 <- p1 + facet_wrap(~gear) 
p2 

Что-то вроде

ggplot(mtcars, aes(mpg, cyl)) + geom_point() %P>% 
+ scale_x_sqrt() %P>% 
+ facet_wrap(~gear) 

Который производит три участка, но ничего не возвращает

Answer 1

Конечно вещь!

`%P+%` <- function(p1, p2) {p <- ggplot2:::`+.gg`(p1, p2); print(p); invisible(p)} 

И призыв

ggplot(mtcars, aes(mpg, cyl)) %P+% 
    geom_point() %P+% 
    scale_x_sqrt() %P+% 
    facet_wrap(~gear) 

получит Вас три участка в ряд. Единственное ограничение заключается в том, что вы должны быть осторожны при смешивании обычных + и %P+% из-за проблем с приоритетом.