R语言实现类Excel HLOOKUP的列重命名并保留未匹配列名方法

原代码错误原因 #

原代码以naming$short为基准匹配data列名，返回结果长度和naming的行数一致（共5行），但data仅4列，赋值时出现长度不匹配错误。
注意：请提前确保naming$short无重复值，否则会出现匹配歧义。

核心实现逻辑 #

以data的现有列名为查询基准，匹配naming的short列，匹配成功则替换为对应long值，未匹配则保留原列名，完全实现Excel HLOOKUP的列映射效果。 #

方法1：基础R实现（无额外依赖，适合大数据量） #

• 优势：向量化运算，无第三方包开销，数据量大时运行效率更高

# 构造命名映射向量：元素值为long，元素名对应short
name_map <- setNames(naming$long, naming$short)
# 生成新列名
new_cols <- ifelse(
  test = colnames(data) %in% names(name_map),
  yes = name_map[colnames(data)],
  no = colnames(data)
)
# 重命名列
colnames(data) <- new_cols

验证输出：

colnames(data)
# [1] "cc" "ID" "aa" "bb"

方法2：dplyr 实现（语法简洁，适合tidyverse工作流） #

若使用dplyr生态，可通过rename_with完成：

library(dplyr)
data <- data %>%
  rename_with(~ ifelse(.x %in% naming$short, naming$long[match(.x, naming$short)], .x))

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