如何在R语言自定义数据框过滤函数中传入变量参数？

你的问题出在dplyr的非标准求值（NSE）机制上，自定义函数里直接传递字段名或字符串时，无法正确指向数据框内的列，导致报错或无输出。

错误原因 #

1. 调用filt_func(df,"d",temp)时，R会在全局环境中查找temp对象，而非input_df的列，因此报错object 'temp' not found。
2. 传递字符串"temp"时，grepl会直接把"temp"当作要匹配的字符向量，而非数据框的列，自然匹配不到目标值，输出空结果。

两种正确写法 #

写法1：支持裸字段名（无需加引号）

使用dplyr的{{}}（curly-curly操作符），它能将函数参数中的裸字段名转换为数据框内的列引用：

df <- data.frame(a=c(1,2,3,4),temp=c("a","b","c","d"))

filt_func <- function(input_df, filter_value, filter_field){
  filt_df <- input_df %>% 
    dplyr::filter(grepl(filter_value, {{ filter_field }}))
  return(filt_df)
}

# 调用示例
output <- filt_func(df, "d", temp)
print(output)

输出：

a temp
1 4    d

写法2：支持字符串参数（字段名加引号）

使用.data代词，通过字符串索引数据框的列：

df <- data.frame(a=c(1,2,3,4),temp=c("a","b","c","d"))

filt_func <- function(input_df, filter_value, filter_field){
  filt_df <- input_df %>% 
    dplyr::filter(grepl(filter_value, .data[[filter_field]]))
  return(filt_df)
}

# 调用示例
output <- filt_func(df, "d", "temp")
print(output)

输出：

a temp
1 4    d

关键说明 #

dplyr的核心函数依赖非标准求值，在自定义函数中必须显式处理参数与数据框列的映射：

• {{}}用于传递裸字段名（如temp），适合和dplyr原生语法一致的调用方式。
• .data[[...]]用于传递字符串形式的字段名（如"temp"），适合动态生成字段名的场景。

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