R语言如何批量对列表内所有数据框执行列重命名、列拼接操作

首先修正初始读取文件代码的疏漏：你调用list.files()后没有将结果赋值给list_of_files变量，这是后续运行报错的常见诱因，修正后的读取代码如下：

library(readr)
# 读取当前目录下所有csv文件路径
list_of_files <- list.files(pattern = "*.csv")
# 批量读取为数据框列表
file_list <- lapply(list_of_files, read_csv, col_names = TRUE)

对列表内所有数据框做统一处理，直接在lapply()内传入自定义处理函数即可。之前自定义函数运行失败，一般是两个原因：一是函数末尾没有返回处理完成的数据框，二是重命名/拼接时列数、列名和数据框实际结构不匹配。以下是包含你需要的两项操作的完整实现代码：

library(dplyr)
library(tidyr)

# 定义单数据框处理函数
clean_df <- function(df) {
  # 操作1：统一重命名所有列，以下两种写法二选一即可
  ## 写法1：按列顺序指定固定列名，注意向量长度必须和数据框列数完全一致
  colnames(df) <- c("列1", "列2", "A", "B", "C", "D")
  ## 写法2：按规则批量重命名，例如下方代码会给所有原列名加前缀"tbl_"
  # colnames(df) <- paste0("tbl_", colnames(df))

  # 操作2：完成指定列拼接，以下两种写法二选一即可
  ## 写法1：用mutate拼接，保留原A/B/C/D列
  df <- df %>%
    mutate(
      AB_concat = paste(A, B, sep = "_"), # sep参数指定拼接的分隔符，不需要分隔符就设为""
      CD_concat = paste(C, D, sep = "_")
    )
  ## 写法2：用unite拼接，默认删除原A/B/C/D列，不需要保留原列时使用
  # df <- df %>%
  #   unite("AB_concat", A, B, sep = "_", remove = TRUE) %>%
  #   unite("CD_concat", C, D, sep = "_", remove = TRUE)

  # 必须返回处理后的数据框
  return(df)
}

# 批量应用处理函数，得到处理完成的数据框列表
processed_file_list <- lapply(file_list, clean_df)

注意事项：

• 重命名列的操作必须放在列拼接之前，保证拼接代码中引用的A/B/C/D列名和数据框实际列名匹配
• 如果不同数据框列顺序不一致，不要用按位置重命名的写法，改用按原名匹配修改的方式，避免列错位
• 如果需要把处理后的数据框导出为csv，可以再用一次lapply批量写出：lapply(seq_along(processed_file_list), function(i) write_csv(processed_file_list[[i]], file = paste0("processed_", list_of_files[i])))

内容的提问来源于stack exchange，提问作者Sara Angela Gallarati