可记录 tibble/data frame 筛选操作的 R 包或函数咨询

嘿，我明白你想要的是能跟踪并展示对数据框/tibble执行的每一步操作（比如连续的filter）的工具，刚好有几个实用的方案可以分享：

1. trackdf包——专为数据框操作追踪设计 #

这个包就是专门用来记录对数据框的所有修改操作的，完全契合你的需求！它会把每个操作步骤绑定到数据对象上，你随时可以提取查看。

举个例子：

library(trackdf)
data(iris)

# 初始化追踪数据框
my_table <- track(iris) %>% 
  filter(Sepal.Length > 6) %>% 
  filter(Species == 'virginica')

# 查看操作历史
history(my_table)

运行history(my_table)后，你会得到类似这样的输出：

Step       Operation
1          filter(Sepal.Length > 6)
2          filter(Species == 'virginica')

完美匹配你想要的效果！

2. RStudio + dplyr内置追踪功能 #

如果你日常用RStudio的话，dplyr自带了操作历史记录的小功能。你可以通过dplyr::dplyr_history()获取最近的dplyr操作历史，不过它更偏向于查看会话中执行过的代码，而非绑定到特定数据对象上。要是你只是想回溯操作步骤，这个已经够用。

3. 自定义包装函数（灵活适配需求） #

如果不想额外装包，你也可以自己写个简单的包装函数来记录操作步骤，完全按需调整：

# 创建带追踪属性的数据框
tracked_df <- function(df) {
  attr(df, "operations") <- list()
  class(df) <- c("tracked_df", class(df))
  df
}

# 重写filter方法，记录操作
filter.tracked_df <- function(.data, ...) {
  op <- rlang::enexprs(...)
  attr(.data, "operations") <- c(attr(.data, "operations"), list(op))
  NextMethod()
}

# 自定义展示函数
display_filter_function <- function(df) {
  ops <- attr(df, "operations")
  cat("Step   filter\n")
  for(i in seq_along(ops)) {
    cat(i, "       ", paste0(deparse(ops[[i]]), collapse = " "), "\n")
  }
}

# 测试效果
data(iris)
my_table <- tracked_df(iris) %>% 
  filter(Sepal.Length>6) %>% 
  filter(Species == 'virginica')

display_filter_function(my_table)

运行后会输出：

Step   filter
1        Sepal.Length > 6
2        Species == "virginica"

这个方案的好处是完全可控，你还能扩展它来追踪mutate、select等更多操作。

4. 类似recipes的替代方案 #

你提到了recipes但不想用step_*系列函数，那可以试试workflows包——它能把dplyr操作和完整分析流程封装起来，不过它更偏向于构建可复用的工作流，而非单纯记录操作步骤。如果你的需求不止是记录筛选，还要搭建完整的分析链路，这个包会很实用。

备注：内容来源于stack exchange，提问作者RayVelcoro