R 读取文件夹下的所有excel文件
library(readxl) library(purrr) library(dplyr) # 设置文件夹路径 folder_path <- "/mnt/c/Users/xuefl/Downloads/新冠存疑分市州" # 获取文件夹中所有的xlsx文件 xlsx_files <- list.files(path = folder_path, pattern = "\\.xlsx$", full.names = TRUE) # 如果没有找到任何xlsx文件,输出警告 if (length(xlsx_files) == 0) { warning("未在指定文件夹找到任何xlsx文件") } # 创建一个函数来读取Excel文件,并添加文件名作为标识 read_excel_with_source <- function(file_path) { file_name <- basename(file_path) df <- try(read_excel(file_path), silent = TRUE) if (inherits(df, "try-error")) { warning(paste("无法读取文件:", file_name)) return(NULL) } # 添加文件名作为源标识 df$source_file <- file_name return(df) } # 使用map函数批量读取所有xlsx文件 all_data_list <- map(xlsx_files, read_excel_with_source) # 移除读取失败的NULL元素 all_data_list <- all_data_list[!sapply(all_data_list, is.null)] # 检查是否所有数据框的列数相同 col_counts <- sapply(all_data_list, ncol) if (length(unique(col_counts)) ...