如何批量重命名R环境中所有数据框的列名？

方案一：Base R 原生实现 #

无需额外加载包，适配原生R环境：

• 将所有目标数据框存入命名列表，列表名称用来标记数据来源（如股票代码），后续扩展只需在列表中添加新数据框：

  # 存入命名列表，可按需添加更多数据框（如 GOOG = d）
  df_list <- list(AMZN = a, AAPL = b, MSFT = c)
  

• 用lapply批量重命名列名，统一设置为Open、Close、Volume：

  df_list_renamed <- lapply(df_list, function(df) {
    colnames(df) <- c("Open", "Close", "Volume")
    df
  })
  

• 添加来源标识列并合并所有数据框：

  # 为每个数据框添加Ticker列，再合并为一个大数据框
  df_combined <- do.call(rbind, Map(function(df, ticker) {
    df$Ticker <- ticker
    df
  }, df_list_renamed, names(df_list_renamed)))
  

方案二：tidyverse 工具链实现 #

代码更简洁直观，适合习惯tidyverse生态的用户：

• 先加载必要的包：

  library(tidyverse)
  

• 用命名列表+map_dfr一步完成重命名、添加标识列和合并：

  # 列表中可直接添加更多数据框，扩展成本极低
  df_combined <- list(AMZN = a, AAPL = b, MSFT = c) %>%
    map_dfr(~ set_names(.x, c("Open", "Close", "Volume")), .id = "Ticker")
  

核心优势 #

• 扩展性强：新增数据框只需在初始命名列表中添加键值对，无需修改后续逻辑
• 可追溯性：通过Ticker列明确每条数据的来源，避免合并后混淆
• 代码复用：批量操作避免重复编写重命名代码，减少出错概率

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