在 dplyr 链的中间步骤期间将数据帧打印到控制台

Question

在函数中调试 dplyr 链时，我经常希望能够将 data.frame 的中间更改打印到控制台。我该怎么做？

例如：

data(cars)
cars %>% group_by(speed) %>% 
  summarize(dist_mean = mean(dist)) %>%
  [insert printing function] %>% 
  group_by(speed > 10) %>%
  summarize(dist_mean = mean(dist_mean)) %>%
  [insert printing function]

我可以做些什么来替换 [insert printing function] 以将数据帧的当前状态打印到控制台，同时仍然不间断地继续链吗？

Answer 1

试试 T 形管：%T>%。

来自文档：

将值转发到函数或调用表达式并返回原始值而不是结果。当表达式用于其副作用时，这很有用，例如绘图或打印。

有一个很好的例子here 以及其他两个不太常见的管道命令。

插入回原来的上下文：

data(cars)
cars %>% group_by(speed) %>% 
  summarize(dist_mean = mean(dist)) %T>%
  print() %>% 
  group_by(speed > 10) %>%
  summarize(dist_mean = mean(dist_mean)) %T>%
  print()

编辑：根据@Ritchie Sacramento 的评论，管道是 magrittr 包的一部分。它们似乎也被 dplyr 重新导出。如果在调用library(dplyr) 后它们不起作用，那么您需要调用library(magrittr) 才能访问它们。