你能用管道把一个print()传送到ggplot而不把它包装在`()`

library(tidyverse)
(
  e <- ggplot(mpg, aes(cty, hwy)) + 
    geom_point()
) %>% 
  print()

有吗 怎么做?”这意味着打印存储的ggplot对象。我经常需要将绘图作为对象存储,但也希望看到它们。这个 () e 最后,但我也不喜欢那样。像这样的东西太酷了。看看区别就知道了。

library(tidyverse)
f <- mtcars %>% 
  select(cyl) %>% 
  as_tibble() %>% 
  print()  # redundant, just proving a point