如何将变量列表传入函数并在循环中过滤R语言DataFrame？

原代码的核心错误： #

• 变量列表定义错误：直接写list(x1, x3...)会尝试调用未定义的x1等对象，应该用字符串列表/向量表示列名。
• 循环内变量覆盖：循环中variable <- variable[i]会破坏原变量列表，导致后续循环索引失效。
• sym()参数类型错误：sym()需要接收字符串，原代码中variable[i]是列表元素，需用[[i]]提取字符串值。
• 过滤逻辑不匹配需求："k|j"用%in%会匹配完整字符串，无法实现"k或j"的或逻辑，需用正则匹配函数。
• 结果未累积返回：每次过滤后未保存结果，也没有返回最终数据集。

修正后的完整代码： #

# 构造示例数据集
df <- data.frame(x1 = c("a", "b", "c"), x2 = c("d", "e", "f"), 
                 x3 = c("g", "h", "i"), x4 = c("j", "k", "l"),
                 x5 = c("m", "n", "o"), x6 = c("p", "q", "r"))

# 修正变量列表（用字符串向量，避免对象未定义错误）
Variable <- c("x1", "x3", "x4", "x6")
Value <- list("c", "g", "k|j", "r")

# 修正后的通用过滤函数
NewFun <- function(dataset, variable, value){
  result <- dataset
  # 遍历每个变量-值对
  for (i in seq_along(variable)){
    # 将列名转为符号，用于dplyr的非标准求值
    var_sym <- sym(variable[[i]])
    current_val <- value[[i]]
    
    # 处理带|的或逻辑，用grepl做正则匹配；否则用%in%精确匹配
    if (grepl("\\|", current_val)){
      result <- result %>% filter(grepl(current_val, !!var_sym))
    } else {
      result <- result %>% filter(!!var_sym %in% current_val)
    }
  }
  return(result)
}

# 测试调用
NewFun(df, Variable, Value)

运行结果： #

x1 x2 x3 x4 x5 x6
1  c  f  g  k  o  r

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