如何基于列表值无循环重命名R语言dataframe的列

基础R实现（无额外依赖） #

通过命名向量匹配实现替换，无需加载第三方包，核心逻辑采用向量化操作完全规避循环：

rename_cols <- function(df, replacements) {
  replace_vec <- unlist(replacements)
  new_names <- replace_vec[names(df)]
  names(df) <- ifelse(is.na(new_names), names(df), new_names)
  return(df)
}

调用示例：

df <- data.frame(a = 1, b = 2, c = 3, d = 4)
replacements <- list(a = "a1", b = "b1", c = "c1")
df_renamed <- rename_cols(df, replacements)
# 输出替换后的列名："a1" "b1" "c1" "d"
names(df_renamed)

tidyverse实现（语法更简洁） #

如果使用dplyr包，可直接利用其内置的命名列表解包能力，代码更精简：

library(dplyr)

rename_cols <- function(df, replacements) {
  df |> 
    rename(!!!replacements)
}

方案优势 #

• 性能更高：向量化匹配仅需遍历一次列名，替代原嵌套循环的O(n*m)复杂度，列数较多时性能提升显著
• 代码更精简：避免冗余的嵌套循环结构，核心逻辑仅1-2行，易读易维护
• 健壮性更强：将替换规则作为函数入参传入，不依赖全局变量，适用场景更灵活

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