R语言自定义函数中如何让filter识别外部传入的列名参数？

错误原因 #

你代码中参数无法识别的核心问题是误用了rlang::ensyms()：该函数的作用是将多个输入转换为符号列表，哪怕你仅传入单个filter_var参数，返回结果也是列表结构，无法直接通过{{ }}注入到dplyr的筛选逻辑中。

修复方案 #

方案1：仅需要支持单个筛选变量 #

把rlang::ensyms()替换为rlang::ensym()即可，后者专门用于处理单个符号转换，适配{{ }}的注入规则：

library(tidyverse)
library(rlang)

foo <- function(..., filter_var = NULL){
  # 改为ensym处理单个符号
  filter_var <- rlang::ensym(filter_var)
  
  dat <- expand_grid(...)

  dat %>%
    filter(
      {{filter_var}} != "A"
    )
}

foo(study = 1:2, test = LETTERS[1:2], filter_var = test)

运行后输出结果：

# A tibble: 2 × 2
  study test 
  <int> <chr>
1     1 B    
2     2 B  

方案2：需要支持传入多个筛选变量 #

如果后续有同时传入多个变量筛选的需求，可以保留ensyms()，调整filter内的写法适配列表结构：

foo <- function(..., filter_var = NULL){
  filter_var <- rlang::ensyms(filter_var)
  
  dat <- expand_grid(...)

  dat %>%
    filter(
      across(all_of(filter_var), ~ .x != "A")
    )
}

# 可支持同时传入多个变量，比如foo(study = 1:2, test = LETTERS[1:2, other=1:3, filter_var = c(test, other))

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