如何用动态列表按与或规则筛选R语言的data.frame？

你的循环方案问题在于：每次循环都对数据框做递进式的且条件过滤，相当于把所有筛选组的条件强制做交集，而非需求中的“组间或、组内且”逻辑，因此得到空结果。

以下是符合需求的实现方式，通过动态构建筛选表达式来实现逻辑：

步骤1：加载依赖包 #

library(dplyr)
library(purrr)
library(rlang)

步骤2：定义筛选列表与构建条件表达式 #

filter_list = list(filter_1 = list(vs = c(0), carb = c(1,4)),
                   filter_2 = list(cyl = c(4,6)))

# 1. 为每个筛选组生成"组内且"的表达式
group_conditions = map(filter_list, function(group) {
  # 生成单个变量的%in%表达式
  var_exprs = imap(group, function(val, var) {
    expr(!!sym(var) %in% !!val)
  })
  # 用&连接组内所有条件
  reduce(var_exprs, ~expr(!!.x & !! .y))
})

# 2. 用|连接所有筛选组的条件，得到最终筛选表达式
final_filter = reduce(group_conditions, ~expr(!!.x | !! .y))

步骤3：执行筛选 #

result = mtcars %>% filter(!!final_filter)

验证结果一致性 #

对比你给出的原生dplyr语句结果，两者完全一致：

original_result = mtcars %>%
  filter(vs %in% c(0) & carb %in% c(1,4) |
           cyl %in% c(4,6))

all.equal(result, original_result) # 返回TRUE，说明结果一致

简化写法（可选） #

如果想更简洁，可以把表达式构建和筛选合并成一行：

mtcars %>%
  filter(
    !!!reduce(
      map(filter_list, ~reduce(imap(.x, ~expr(!!sym(.y) %in% !! .x)), ~expr(!!.x & !! .y))),
      ~expr(!!.x | !! .y)
    )
  )

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