读取 excel 文件的文件夹并将单个工作表作为单独的 df 导入 R 中的名称

我有一个excel文件文件夹，每个文件夹包含多张工作表.每个wb中的图纸名称相同.我正在try 将所有excel文件的一个特定命名工作表作为单独的数据框导入.我已经能够将它们导入；但是，名称变为df\u 1、df\u 2、df\u 3等...我一直在try 使用excel文件名的第一个单词来识别df.

Excel文件名"AAPL Multiple Sheets"的示例我正在将该表命名为"Balance"，作为df导入.我想要"AAPL Balance df"作为结果.

最接近我要查找的代码位于下面，但它将每个数据帧命名为df\u 1、df\u 2，依此类推.

library(purrr)
library(readxl)

files_list <- list.files(path = 'C:/Users/example/Drive/Desktop/Total_Related_Data/Analysis of Data/',
pattern = "*.xlsx",full.names = TRUE)

files_list %>% 
    walk2(1:length(files_list),
          ~ assign(paste0("df_", .y), read_excel(path = .x), envir = globalenv()))

我try 在past0函数中使用文件路径变量"file\u list"来标记它们，结果是，

df\u C:/Users/example/Drive/Desktop/Total\u Related\u Data/Analysis of Data/.xlsx1，df\u C:/Users/example/Drive/Desktop/Total\u Related\u Data/Analysis of Data/.xlsx2，

等等

我试着列出要使用的文件名.这读取了文件名并创建了一个列表，但我无法使用上面的代码.

files_Names<-list.files(path='C:/Users/example/Drive/Desktop/Total_Related_Data/Analysis of Data/', pattern=NULL, all.files=FALSE, full.names=FALSE)

结果是，