R语言mutate函数中用paste生成动态列名报错的解决咨询

现有如下R数据框：

year <- c(2016,2017,2018)
xxx <- c(1,2,3)
yyy <- c(4,5,6)
df <- data.frame(year,xxx,yyy)

需要为该数据框新增一列：

• 列名由原第2列的列名拼接额外文本生成（例如通过paste(colnames(df[2]), 'test', sep = '_')生成）
• 新列的值基于原列运算（例如乘以常数100）

尝试使用mutate函数实现时触发错误：

df <- mutate(df, paste(colnames(df[2]), 'test', sep = '_') = df[2]*100)

错误信息：

Error: unexpected '=' in "df <- mutate(df, paste(colnames(df)[2], 'test', sep = '_') ="

解决方法 #

1. dplyr动态列名语法（推荐） #

在dplyr中，直接用字符串作为列名需要使用:=替代常规赋值符号=，并通过!!（强制求值运算符）解析动态生成的列名字符串：

library(dplyr)

# 先定义新列名
new_col <- paste(colnames(df)[2], "test", sep = "_")
# 动态新增列
df <- df %>% mutate(!!new_col := .data[[colnames(df)[2]]] * 100)

也可以直接将列名生成逻辑嵌入mutate：

df <- df %>% 
  mutate(!!paste(colnames(df)[2], "test", sep = "_") := .data[[colnames(df)[2]]] * 100)

其中.data[[colnames(df)[2]]]用于安全引用原第2列，避免列名解析问题。

2. Base R 实现 #

如果不依赖dplyr，直接使用基础R的列表赋值语法即可：

new_col <- paste(colnames(df)[2], "test", sep = "_")
df[[new_col]] <- df[[2]] * 100

3. 批量场景：使用across #

如果需要对多列执行同类动态新增操作，across配合.names参数更高效：

df <- df %>%
  mutate(across(2, ~ .x * 100, .names = "{.col}_test"))

这里.names = "{.col}_test"会自动将原列名拼接_test作为新列名，~ .x * 100定义列值的运算逻辑。

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