如何在R中传递带引号字符串为函数参数？rlang{{用法求助

{{ }}（embrace操作符）的作用是捕获裸代码表达式，而非字符串。你传入的是带引号的字符串"SAFFL=='Y'"，{{ }}无法将其解析为可执行的筛选条件，因此达不到预期效果。

方案1：使用裸表达式传参（推荐，符合tidyverse风格） #

修改函数，让subset参数接受裸表达式（无需加引号），{{ }}就能正常捕获并传递给filter()：

library(dplyr)
adsl <- data.frame(SubjList=c(1:10), SAFFL=sample(c('Y','N'),10,replace = T))

subs <- function(data=NA, subset = SubjList != ""){
  data %>% filter({{subset}})
}

# 调用时直接写筛选条件，不用加引号
subs(data=adsl, subset = SAFFL == 'Y')

方案2：兼容字符串形式的参数（若必须传字符串） #

如果场景要求必须传入字符串格式的筛选条件，可以用rlang::parse_expr()把字符串解析为表达式，再用!!（注入操作符）传递给filter()：

library(dplyr)
library(rlang)
adsl <- data.frame(SubjList=c(1:10), SAFFL=sample(c('Y','N'),10,replace = T))

subs <- function(data=NA, subset='SubjList!=\"\"'){
  # 把字符串解析为表达式
  subset_expr <- parse_expr(subset)
  data %>% filter(!!subset_expr)
}

# 传入字符串形式的条件
subs(data=adsl, subset = "SAFFL=='Y'")

• 方案1更符合tidyverse函数的设计习惯，代码简洁直观，还能避免字符串转义的麻烦（比如你原默认值里的\"\"）。
• 方案2适合需要动态生成字符串条件的场景，比如从外部文件读取筛选规则的情况。

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