R语言匹配新旧列名实现无顺序依赖的批量列重命名方法

你需要借助dplyr的动态参数解包运算符!!!，将提前整理好的新旧列名映射转成指定格式的命名向量后，批量传入rename()即可，完全不需要手动逐个编写映射规则，也不依赖原有列的排列顺序。

完整可运行示例代码 #

# 加载dplyr包
library(dplyr)

# 加载示例数据集
data("iris")

# 构造新旧列名映射表（你的已有映射表可直接复用这一步）
oldID = colnames(iris)
newID = c("spl.lgth", "spl.wdth", "ptl.lgth", "ptl.wdth", "spp")
colnamechange = data.frame(oldID, newID)

# 构造符合rename要求的命名向量：向量名称为新列名，对应值为旧列名
rename_mapping <- setNames(colnamechange$oldID, colnamechange$newID)

# 批量重命名，!!!会自动把映射向量拆分为`新列名=旧列名`的参数传入rename
iris_renamed <- iris %>%
  rename(!!!rename_mapping)

# 验证重命名结果
head(iris_renamed)

输出示例 #

spl.lgth spl.wdth ptl.lgth ptl.wdth   spp
1      5.1      3.5      1.4      0.2 setosa
2      4.9      3.0      1.4      0.2 setosa
3      4.7      3.2      1.3      0.2 setosa
4      4.6      3.1      1.5      0.2 setosa
5      5.0      3.6      1.4      0.2 setosa
6      5.4      3.9      1.7      0.4 setosa

补充说明 #

• 如果你的映射表存在部分旧列名不在当前数据集的情况，rename()会自动忽略不存在的列，不会抛出错误，适配大表批量处理场景。
• 如果你习惯使用tidyverse工具链，也可以用tibble::deframe()生成映射向量，写法为：

  library(tibble)
  rename_mapping <- deframe(select(colnamechange, newID, oldID))
  

  效果和setNames生成的向量完全一致。

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