如何编写函数批量重命名多个R数据集的列？

你的代码问题在于：循环中x = naep_years[[i]]只是复制了列表里的数据集到临时变量x，修改x的列名仅改变了这个副本，原列表和最初的9个数据集都不会被更新，所以最后只剩最后一次循环的x变量。

下面是两种可行的解决方案：

方法一：用列表+lapply处理（推荐，更符合R的代码风格） #

# 定义要使用的新列名
columnnames <- c("Jurisdiction", "averagescore", "DeltafromNatAve", "SigSymbol", "PercentBasic", "PercentProficient")

# 创建带名称的数据集列表，名称对应原数据集的变量名
naep_years <- list(
  naep2005 = naep2005,
  naep2007 = naep2007,
  naep2009 = naep2009,
  naep2011 = naep2011,
  naep2013 = naep2013,
  naep2015 = naep2015,
  naep2017 = naep2017,
  naep2019 = naep2019,
  naep2022 = naep2022
)

# 批量修改列表中每个数据集的列名
naep_years <- lapply(naep_years, function(df) {
  colnames(df) <- columnnames
  df
})

# 将修改后的数据集重新放回全局环境（这样原变量名会被更新）
list2env(naep_years, envir = .GlobalEnv)

方法二：直接循环修改全局环境中的变量 #

# 定义新列名
columnnames <- c("Jurisdiction", "averagescore", "DeltafromNatAve", "SigSymbol", "PercentBasic", "PercentProficient")

# 列出所有要修改的数据集变量名
df_names <- c("naep2005", "naep2007", "naep2009", "naep2011", "naep2013", "naep2015", "naep2017", "naep2019", "naep2022")

# 循环处理每个数据集
for (name in df_names) {
  # 获取当前变量对应的数据集
  current_df <- get(name)
  # 修改列名
  colnames(current_df) <- columnnames
  # 将修改后的数据集重新赋值回原变量
  assign(name, current_df)
}

两种方法都能完成批量重命名，方法一通过列表统一处理更简洁，方法二更贴近你最初的循环思路，适合新手理解。

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