R语言使用paste动态引用数据框列名报unexpected '='错误解决方法

dplyr默认使用非标准计算逻辑，不支持直接在等号左侧的新列名位置传入paste0()这类动态生成字符串的表达式，同时不会自动将字符串格式的列引用解析为数据框内的实际列，因此触发语法错误。此外示例代码中ARM_2 = c(4,5,6,)末尾多了一个多余逗号，运行前需先删除。

• 基础动态语法方案（dplyr 1.0.0+版本通用）
  将新列赋值的等号=替换为动态赋值运算符:=，引用动态列名时通过.data[[字符串]]格式索引列，代码可直接运行得到预期结果：

library(dplyr)
library(stringr)

arm <- "ARM"
# 修正原数据框语法错误
ex_df <- data.frame(
  col1 = c("A","B","C"), 
  col2 = c("X","Y","Z"), 
  ARM_1 = c(1,2,3), 
  ARM_2 = c(4,5,6),
  ARM_3 = c(7,8,9), 
  ARM_4 = c(0,0,0)
)

ex_df %>%
  transmute(
    col1 = col1, 
    col2 = str_to_title(col2), 
    "{arm}_4" := .data[[paste0(arm, "_", 1)]] + .data[[paste0(arm, "_", 2)]] + .data[[paste0(arm, "_", 3)]]
  ) %>%
  arrange(col1, col2)

运行后ARM_4列返回值为12、15、18，完全符合ARM_1 + ARM_2 + ARM_3的按行求和逻辑。

• 批量列匹配方案（扩展性更强，适合多列场景）
  如果后续需要新增同前缀的计算列，无需逐个手动写列引用，可通过pick()函数匹配符合命名规则的列，配合rowSums()直接完成按行求和：

ex_df %>%
  transmute(
    col1 = col1,
    col2 = str_to_title(col2),
    "{arm}_4" := rowSums(pick(starts_with(arm) & !ends_with("_4")))
  ) %>%
  arrange(col1, col2)

该写法会自动选中所有以ARM开头、且排除ARM_4本身的列参与计算，后续新增ARM_5、ARM_6等同前缀列时，不需要修改求和逻辑即可自动纳入计算。

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