R语言自定义函数中传入字符参数使用filter结果异常如何解决？

你使用的{{var}}是dplyr的非标准求值（NSE）语法，它的作用是直接引用传入的列名符号（比如调用get_parim(vs)时）。但你传入的是字符串"vs"，此时{{var}}会将其视为普通字符串值，执行"vs" == 0的判断——这个条件永远为假，所以filter返回空数据框，nrow结果为0。

以下是几种可行的修正方式：

方法1：使用.data代词（推荐） #

dplyr提供的.data代词可以通过字符串直接引用数据框的列，完美适配字符串参数的场景：

library(dplyr)
mtcars |> filter(vs == 0) |> nrow() # 18

get_parim <- function(var) {
  n <- mtcars |> filter(.data[[var]] == 0) |> nrow()
  print(n)
}

get_parim("vs") # 输出18

方法2：兼容符号与字符串输入 #

如果需要同时支持直接传列名（get_parim(vs)）和字符串（get_parim("vs")），可以用rlang::ensym()将字符串转换为符号，再配合{{}}使用：

library(dplyr)
library(rlang)

get_parim <- function(var) {
  var <- ensym(var)
  n <- mtcars |> filter({{var}} == 0) |> nrow()
  print(n)
}

get_parim("vs") # 输出18
get_parim(vs)   # 同样输出18

方法3：使用across() + all_of() #

通过across()结合all_of()也能实现按字符串列名筛选：

library(dplyr)

get_parim <- function(var) {
  n <- mtcars |> filter(across(all_of(var), ~ .x == 0)) |> nrow()
  print(n)
}

get_parim("vs") # 输出18

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