在R中使用循环批量重命名多个数据框的列

你之前用列表方法没生效的核心原因是：R中将数据框存入列表时，列表里的是原数据框的副本，修改列表内的对象不会自动同步到全局环境里的原数据框。下面提供两种可行的解决方案：

方法一：直接修改全局环境中的数据框 #

用get()和assign()配合循环，直接操作全局环境里的单个数据框对象：

# 先确保加载dplyr包
library(dplyr)

# 遍历0到6的索引
for (i in 0:6) {
  # 获取对应名称的数据框
  current_df <- get(paste0("outage_", i))
  # 动态重命名列（用tidyeval语法解析动态生成的列名）
  current_df <- rename(current_df, 
                       !!paste0("sd_out_", i) := sd_out,
                       !!paste0("out_", i) := out)
  # 将修改后的数据框放回全局环境
  assign(paste0("outage_", i), current_df)
}

方法二：先统一管理到列表（更推荐的R工作流） #

在R中，把同类型数据框集中到列表里管理会更高效，避免全局环境堆满零散对象。如果之后仍需要把修改后的结果放回原环境，可以这么做：

library(dplyr)

# 1. 把所有数据框收集到列表
outage_list <- lapply(0:6, function(i) get(paste0("outage_", i)))
names(outage_list) <- paste0("outage_", 0:6)

# 2. 批量重命名列表内的每个数据框
outage_list <- lapply(names(outage_list), function(df_name) {
  idx <- as.integer(sub("outage_", "", df_name))
  rename(outage_list[[df_name]],
         !!paste0("sd_out_", idx) := sd_out,
         !!paste0("out_", idx) := out)
})
names(outage_list) <- paste0("outage_", 0:6)

# 3. （可选）将修改后的数据框放回全局环境
list2env(outage_list, envir = .GlobalEnv)

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