R dplyr编程：ifelse/summarise中使用带引号动态变量名的方法

mutate()中代码运行失败的核心原因是：!!注入运算符仅支持注入R表达式/变量符号对象，不能直接注入裸字符串。你在ifelse()的判断和返回分支里直接写!!paste0(...)时，实际是把拼接得到的字符串常量（比如"first_adopted_test_1"）直接写入表达式，相当于拿字符串文本本身和'2019_01'做相等判断，根本没有读取数据框中对应列的实际值，逻辑自然不成立。

两种tidyverse官方支持的动态列名实现方式，运行结果和你硬编码的版本完全一致。

方案1：预生成列名符号（推荐，代码最简洁） #

提前用sym()把拼接好的列名转为R可识别的变量符号，后续赋值、引用列值都复用这个符号对象，不用重复写拼接逻辑：

library(tidyverse)
my_cat <- "test_1"
# 提前拼接列名，转为符号对象
target_col <- sym(paste0("first_adopted_", my_cat))

df %>% 
  group_by(ID)  %>%
  summarise(
    !!target_col := ifelse(never_adopted , "never adopted",  date[first_adopted  == TRUE])
  ) %>% 
  distinct() %>%
  mutate(
    !!target_col := ifelse(
      !!target_col == '2019_01',
      "before 2019",
      !!target_col
    )
  )

运行输出：

# A tibble: 4 × 2
# Groups:   ID [4]
     ID first_adopted_test_1
  <dbl> <chr>               
1     1 2021_06             
2     2 never adopted       
3     3 2020_05             
4     4 before 2019        

方案2：用.data代词按字符串索引列 #

如果不想提前转符号，可以用tidyverse内置的.data代词，直接通过字符串索引取对应列，写法更直白，不需要记忆!!+sym()的组合规则：

library(tidyverse)
my_cat <- "test_1"
col_name <- paste0("first_adopted_", my_cat)

df %>% 
  group_by(ID)  %>%
  summarise(
    !!col_name := ifelse(never_adopted , "never adopted",  date[first_adopted  == TRUE])
  ) %>% 
  distinct() %>%
  mutate(
    !!col_name := ifelse(
      .data[[col_name]] == '2019_01',
      "before 2019",
      .data[[col_name]]
    )
  )

• 动态给列名赋值时，必须用:=替代常规的=，这部分你原来的代码写法是正确的
• 不要在!!后直接传入裸字符串：如果是拼接生成的字符串列名，要么先用sym()转为符号再注入，要么通过.data[[列名字符串]]的方式引用列值
• 如果是自定义函数中直接传入未加引号的列名参数，更推荐用{{}}（拥抱运算符）做注入，但拼接生成列名的场景下上面两种方案适配性更好

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