r - dplyr + magrittr + qplot = 没有情节？

Question

我想用qplot (ggplot2) 然后用 magrittr 转发数据:

这有效:

mtcars %>% qplot(mpg, cyl, data=.)

这会产生一个错误:

mtcars %>% qplot(mpg, cyl, data=.) %>% summarise(mean(mpg))

而那些只产生汇总统计数据:

mtcars %T>% qplot(mpg, cyl, data=.) %>% summarise(mean(mpg))
mtcars %>% {qplot(mpg, cyl, data=.); .} %>% summarise(mean(mpg))
mtcars %T>% {qplot(mpg, cyl, data=.)} %>% summarise(mean(mpg))

问题是什么？我已经找到 this解决方案，但它没有帮助，正如您从附加的代码中看到的那样。

Answer 1

所有 ggplot2 函数都返回一个表示绘图的对象 - 要查看它，您需要打印它。当您在控制台中工作时，这通常会自动发生，但需要在函数或链中显式。

我能想到的最优雅的解决方案是:

library("ggplot2")
library("magrittr")
library("dplyr")

echo <- function(x) {
  print(x)
  x
}
mtcars %>% 
  {echo(qplot(mpg, cyl, data = .))} %>% 
  summarise(mean(mpg))

似乎应该有更好的方法。