R中使用for循环批量mutate变量报unexpected '='错误如何解决？

• R语法限制：函数参数的=左侧不能直接放置as.name()这类动态生成变量名的表达式，解析器无法识别这类表达式为合法的参数名，直接触发语法错误。
• 你使用的mutate_是dplyr已废弃的标准求值接口，本身已经停止维护，语法适配性很差。
• 即使修复赋值语法，as.name()直接放在case_when的判断逻辑中也不会被正确识别为数据框的对应列，无法完成取值计算。

使用dplyr原生的across()接口批量匹配目标列处理，代码更简洁，也不会出现动态求值的兼容问题：

library(dplyr)

Ech_final_nom_BSA <- Ech_final_nom_BSA %>%
  mutate(
    # 精准匹配Q31_1_到Q31_8_的列，不会误修改其他列
    across(num_range(prefix = "Q31_", range = 1:8, suffix = "_"),
           ~ case_when(
             .x == 1 ~ 4,
             .x == 2 ~ 3,
             .x == 3 ~ 2,
             .x == 4 ~ 1,
             TRUE ~ as.numeric(as.character(.x))
           ))
  )

可以用rlang的动态求值语法修正，用!!注入符号、:=完成动态赋值：

library(dplyr)
library(rlang)

for (i in 1:8) {
  col_str <- paste0("Q31_", i, "_")
  col_sym <- sym(col_str)
  Ech_final_nom_BSA <- Ech_final_nom_BSA %>%
    mutate(
      !!col_str := case_when(
        !!col_sym == 1 ~ 4,
        !!col_sym == 2 ~ 3,
        !!col_sym == 3 ~ 2,
        !!col_sym == 4 ~ 1,
        TRUE ~ as.numeric(as.character(!!col_sym))
      )
    )
}

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