在R中导入多个Excel文件时如何添加文件名？

library(readxl)

# 指定包含Excel文件的文件夹路径
folder_path <- "your_folder_path"

# 获取文件夹中的所有Excel文件名
file_names <- list.files(path = folder_path, pattern = "*.xlsx", full.names = TRUE)

# 创建一个空的列表，用于存储导入的Excel数据
data_list <- list()

# 循环读取并导入每个Excel文件
for (file in file_names) {
  # 从文件路径中提取文件名
  file_name <- tools::file_path_sans_ext(basename(file))
  
  # 使用read_excel()函数读取Excel文件
  data <- read_excel(file)
  
  # 将导入的数据存储在列表中，以文件名作为列表的名称
  data_list[[file_name]] <- data
}

# 可以通过列表的名称来访问导入的数据
# 例如，访问第一个Excel文件的数据
first_file_data <- data_list[[1]]