R语言如何批量重命名工作空间内所有数据框的列名

需求说明 #

需要对R全局工作空间中的所有数据框设置完全一致的列名，逐一对单个数据框写names(数据框名) <- 新列名的手动写法在数据框数量较多时操作繁琐，手动操作示例：

names(cars) <- c(1:10)
names(trucks) <- c(1:10)

批量操作代码 #

第一步先筛选出工作空间里所有数据框类型的对象，避免误改向量、列表等其他类型的对象：

# 获取全局环境中所有数据框的对象名
all_dfs <- names(Filter(is.data.frame, mget(ls(envir = .GlobalEnv), envir = .GlobalEnv)))

第二步循环执行列名替换，执行前请确认新列名的长度和每个数据框的列数匹配：

# 循环修改所有数据框列名
for (df_name in all_dfs) {
  # 读取当前数据框
  current_df <- get(df_name, envir = .GlobalEnv)
  # 替换列名，这里的c(1:10)可以换成你需要的任意统一列名向量
  # 如果列数不固定，可以用动态生成列名的写法，比如paste0("var", 1:ncol(current_df))
  names(current_df) <- as.character(1:10)
  # 将修改后的数据框写回全局环境
  assign(df_name, current_df, envir = .GlobalEnv)
}

可选调整 #

• 如果不需要处理工作空间内的全部数据框，可以直接手动指定要处理的对象名：all_dfs <- c("cars", "trucks", "mtcars")
• 如果不同数据框列数不完全一致，不要使用固定长度的列名向量，改用动态生成长度匹配的列名即可，比如names(current_df) <- paste0("col_", seq_len(ncol(current_df)))会给每个数据框生成col_1、col_2……长度和自身列数匹配的列名
• 执行操作前建议先备份重要数据，避免误改后无法恢复

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