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

在R中导入多个Excel文件时，可以使用list.files()函数获取指定文件夹中的所有Excel文件名，并将其存储在一个字符向量中。然后，可以使用read_excel()函数结合循环来逐个读取并导入这些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]]

在上述代码中，首先使用list.files()函数获取指定文件夹中的所有Excel文件名，并将其存储在file_names字符向量中。然后，通过循环遍历file_names，使用read_excel()函数逐个读取并导入Excel文件的数据。导入的数据以文件名作为列表的名称，存储在data_list列表中。

最后，可以通过列表的名称来访问导入的数据。例如，可以使用data_list[[1]]来访问第一个Excel文件的数据。

请注意，上述代码使用了readxl包中的read_excel()函数来读取Excel文件。如果需要导入其他类型的文件（如.csv文件），可以使用相应的读取函数（如read_csv()）。