如何在R函数中用quosure向case_when/ifelse传递字符串列名？

你的代码失效核心在于**enquo()的使用场景错误**：enquo()是用来捕获裸变量名表达式（比如直接传入index而非"index"）的工具，但你的参数是字符串类型的列名。此时enquo(index_id)捕获的是字符串本身而非数据框中的列，导致!!index_quo == "a"等价于"index" == "a"，这个判断永远为FALSE，后续的ifelse和case_when都只会执行else分支，最终出现不符合预期的结果。

这里提供两种简洁可靠的处理方式：

方法1：用ensym()转换字符串为符号 #

ensym()可以将字符串形式的列名转换为tidyeval能识别的符号，再配合!!引用到表达式中：

library(tidyverse)

# 创建示例数据
lev <- c("a","b","c")
a <- seq(1,3)
test <- tibble("index"=lev,"raw"=as.numeric(a),"x2"=a*2, x3 = a*3)

# 修复后的函数
sending_test_qu <- function(data_sent, index_id = "index") {
  index_sym <- ensym(index_id)  # 将字符串列名转为符号
  data_sent %>% 
    mutate(
      raw = ifelse(!!index_sym == "a", 0, raw),
      raw_2 = case_when(
        !!index_sym == "a" ~ 0,
        TRUE ~ raw
      )
    )
}

# 测试执行
sending_test_qu(test)

执行结果：

# A tibble: 3 x 5
  index   raw    x2    x3 raw_2
  <chr> <dbl> <dbl> <dbl> <dbl>
1 a         0     2     3     0
2 b         2     4     6     2
3 c         3     6     9     3

方法2：用.data代词直接引用字符串列名 #

这是tidyverse推荐的处理字符串列名的方式，无需处理quosure，代码更直观：

sending_test_qu <- function(data_sent, index_id = "index") {
  data_sent %>% 
    mutate(
      raw = ifelse(.data[[index_id]] == "a", 0, raw),
      raw_2 = case_when(
        .data[[index_id]] == "a" ~ 0,
        TRUE ~ raw
      )
    )
}

• 当函数参数是裸变量名（如调用my_func(data, index)），使用enquo()捕获参数，再用!!引用。
• 当函数参数是字符串形式的列名，优先使用.data[[col_name]]的方式，或用ensym()/sym()将字符串转为符号后再用!!引用。
• 避免混合字符串和裸变量的处理逻辑，保持参数类型一致，减少混淆。

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