R语言如何简洁实现数据框多个列的批量重命名？

你写的基于!!!拼接命名向量的实现思路是可行的，但原代码有3个会直接导致运行报错/结果不符合预期的问题：

• 变量名非法：你定义映射时写的df names中间带空格，不符合R变量命名规则，运行会直接抛语法错误
• 映射和需求不匹配：你提到要把列b改为W、列c改为Z，但实际写的映射是Z = "b", E = "c"，新旧名对应关系错了
• 遗漏必要操作：rename()是dplyr包的函数，未加载包直接调用会报错；且dplyr的函数不会原地修改数据框，不把结果赋值回原变量的话，重命名结果不会保存到df里

修正后可正常运行的代码如下：

# 加载依赖包
library(dplyr)
# 构造示例数据
df <- data.frame(a=1, b=2, c=3)
# 定义正确映射：向量名为新列名，向量值为原列名，匹配rename的参数规则
name_map <- c(Y = "a", W = "b", Z = "c")
# 执行重命名并赋值回原变量
df <- rename(df, !!!name_map)
# 查看结果
df

这种写法是tidyverse生态下批量重命名的标准写法，尤其适合映射关系存在外部变量、需要动态生成重命名规则的场景。

其他更简洁的实现方案 #

1. 新版dplyr简化写法 #

目前新版本dplyr的rename()已经原生支持命名向量传入，不需要手动加!!!做拼接，用all_of()包裹映射向量即可，代码更清爽：

df <- df %>% rename(all_of(name_map))

2. 基础R无依赖写法 #

不想加载第三方包的话，直接操作列名索引即可，小数据量下性能没有差异：

# 适配列顺序变动的场景：按列名匹配重命名
colnames(df)[match(name_map, colnames(df))] <- names(name_map)

# 列顺序固定时的最简写法：直接按位置给列名赋值
colnames(df) <- c("Y", "W", "Z")

3. 大数据量场景最优方案（data.table） #

处理十万行以上的大数据框时，优先用data.table的setnames()，支持原地修改，不需要复制整个数据框，性能远高于dplyr和基础R写法：

library(data.table)
# 转换为data.table对象
setDT(df)
# 直接传入命名向量即可完成重命名
setnames(df, name_map)

注意事项 #

• 除了data.table的setnames()这类原地修改函数，其余重命名操作都需要把结果赋值回原变量，否则修改不会生效
• 不同函数的新旧名参数顺序有差异：dplyr是新名 = 旧名，data.table的setnames默认是old = 旧名, new = 新名，写映射时注意不要搞反顺序
• 如果数据框存在列顺序变动、重复列名的情况，不要用按位置赋值的写法，优先用按列名匹配的逻辑，避免重命名错位

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