使用tidyverse过滤数据框时，如何用tee管道打印中间维度？

我完全懂你遇到的困扰——想用%T>%这个tee管道在过滤流程里打印中间数据的维度，但直接写dim()或nrow()却看不到输出，对吧？其实核心问题在于tee管道需要触发“副作用操作”，单纯的dim()只是计算维度值，不会主动把结果输出到控制台。下面给你两种实用的解决方案：

方案一：用大括号包裹打印表达式 #

你自己摸索出来的这个写法其实非常直接，利用大括号{}在tee管道里执行打印操作，其中.代表管道传过来的当前数据对象：

library(tidyverse)
library(magrittr)

mtcars %>% 
  filter(cyl > 4) %T>% {print(dim(.))} %>% 
  filter(am == 0) %T>% {print(dim(.))} %>% 
  filter(disp >= 200) %>% 
  {print(dim(.))}

这里的关键逻辑是：%T>%会把左侧的dataframe传递给大括号里的表达式，执行print(dim(.))输出维度，然后不管大括号里的表达式返回什么，都会继续把原始的dataframe传递给下一个管道步骤，所以后续的filter操作完全不受影响。

方案二：封装成自定义函数（更整洁） #

如果觉得每次写{print(dim(.))}有点繁琐，可以把打印维度的逻辑封装成一个小函数，让管道代码更简洁易读：

# 定义一个打印维度并返回原数据的函数
print_dim <- function(x) {
  cat("当前数据维度：", paste(dim(x), collapse = " x "), "\n")
  x  # 必须返回原数据，确保管道能继续传递对象
}

# 使用函数简化管道代码
mtcars %>% 
  filter(cyl > 4) %T>% print_dim() %>% 
  filter(am == 0) %T>% print_dim() %>% 
  filter(disp >= 200) %>% print_dim()

这个函数的好处是可以自定义打印格式（比如用cat输出更友好的提示文字），而且管道链看起来更清爽，尤其适合多步骤的复杂数据处理场景。

为什么最初的写法没有效果？ #

你一开始尝试的mtcars %>% filter(cyl > 4) %T>% dim() %>% ...之所以看不到输出，是因为dim()只是返回一个包含行数和列数的向量，但没有执行打印动作——R里只有明确调用print()（或者在控制台直接输入对象）才会把内容输出到屏幕。而%T>%虽然把dataframe传给了dim()，但dim()的结果没有被打印，同时%T>%依然会把原始dataframe往下传递，所以过滤操作是正常执行的，但你看不到中间维度的输出。

内容的提问来源于stack exchange，提问作者Carpatorus