将位于子文件夹中的相同名称的excel文件加载到R中并绑定它们

Question

我正在寻找一个解决方案，将位于几个子文件夹中的几个同样命名的Excel文件加载到r中。

当这些excel文件位于同一个文件夹并且都包含"MZB"作为其名称的一部分，我可以很容易地应用循环，如:

setwd('C:UsersRandomGuyWorkspace')
dir()
combination <- dir()[grepl('MZB', dir())]
# loop
for (i1 in 1:length(combination)) print(readxl::excel_sheets(combination[[i1]])); rm(i1)
# checking of 
comb <- list()
for (i1 in 1:length(combination)) {
comb[[i1]] <- readxl::read_xlsx(combination[[i1]], sheet='')
print(names(comb[[i1]])) }; rm(i1)
comb <- do.call('rbind', comb)

现在，我有问题，这些excel文件不位于同一文件夹，而是在几个子文件夹。是否有办法访问这些并合并同样命名的Excel文件(或至少一次一个工作表)到R?

Answer 1

files <- list.files(pattern = "listen.xlsx", path = "C:/...", recursive = TRUE, full.names = TRUE)
lst_of_frames <- lapply(files, readxl::read_excel, sheet='')

oneframe <- do.call("rbind.data.frame", lst_of_frames)