如何用R语言批量对多个Excel文件执行相同数据重排操作

先修正你代码里的几个小问题 #

你原来的代码里有几处语法错误，提前说明：

• R里设置列名的函数是colnames()（全小写），不是colNames()
• 移除空列时应该用当前的df，不是CF_dataframe
• 写入Excel的标准函数推荐用write_xlsx()（来自writexl包），而非write_excel()

批量处理的具体实现（for循环版） #

下面是完整的可运行批量处理代码：

1. 加载所需工具包

先安装并加载处理Excel和数据的包：

# 第一次使用先安装包
install.packages(c("readxl", "dplyr", "writexl"))

# 加载包
library(readxl)
library(dplyr)
library(writexl)

2. 获取所有目标Excel文件路径

用list.files()收集你要处理的所有.xlsx文件路径：

# 替换成你的Excel文件所在目录，比如 "D:/my_data/excels"
target_dir <- "."
# 获取目录下所有.xlsx文件的完整路径
excel_files <- list.files(path = target_dir, pattern = "\\.xlsx$", full.names = TRUE)

3. 用for循环逐个处理文件

遍历每个文件，执行你需要的重排操作：

for (file_path in excel_files) {
  # 读取文件，跳过前16行
  df <- read_excel(file_path, skip = 16)
  
  # 移除最后22行（加判断避免文件行数不足时报错）
  total_rows <- nrow(df)
  if (total_rows > 22) {
    df <- df[1:(total_rows - 22), ]
  }
  
  # 移除全为空的列
  df <- df[, colMeans(is.na(df)) != 1]
  
  # 设置新列名（注意：如果筛选逻辑需要用到"Variable"列，要确保新列名包含对应字段）
  colnames(df) <- c("different", "column", "names")
  
  # 筛选指定内容（这里假设筛选新列名里的"column"列，根据实际情况修改）
  df <- filter(df, column == "Level")
  
  # 生成输出文件名（比如在原文件名前加"processed_"）
  output_name <- paste0("processed_", basename(file_path))
  # 写入处理后的文件到原目录
  write_xlsx(df, file.path(target_dir, output_name))
}

补充：更简洁的批量处理方式 #

如果你不想用for循环，也可以用purrr包的walk()函数，代码更紧凑：

library(purrr)

# 定义处理单个文件的函数
process_excel <- function(file_path) {
  df <- read_excel(file_path, skip = 16)
  total_rows <- nrow(df)
  if (total_rows > 22) df <- df[1:(total_rows - 22), ]
  df <- df[, colMeans(is.na(df)) != 1]
  colnames(df) <- c("different", "column", "names")
  df <- filter(df, column == "Level")
  output_name <- paste0("processed_", basename(file_path))
  write_xlsx(df, file.path(target_dir, output_name))
}

# 批量执行处理
walk(excel_files, process_excel)

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