如何高效地将同一张表格中的多个excel表格导入到R列表中？

install.packages("readxl")
install.packages("openxlsx")

library(readxl)
library(openxlsx)

# 设置文件夹路径和文件名
folder_path <- "your_folder_path"
file_names <- c("file1.xlsx", "file2.xlsx", "file3.xlsx") # 根据实际文件名修改

# 初始化一个空的列表来存储导入的表格数据
excel_list <- list()

for (file_name in file_names) {
  # 构建文件路径
  file_path <- file.path(folder_path, file_name)
  
  # 判断文件类型，使用相应的函数读取数据
  if (grepl(".xlsx$", file_name, ignore.case = TRUE)) {
    excel_data <- read.xlsx(file_path, sheet = 1) # 读取第一个工作表
  } else if (grepl(".xls$", file_name, ignore.case = TRUE)) {
    excel_data <- read.xls(file_path, sheet = 1)
  }
  
  # 将读取的数据添加到列表中
  excel_list[[file_name]] <- excel_data
}

# 打印列表中的数据
print(excel_list)