尝试一下:

library(dplyr)
allsheets <- list()
for(file in list.files(path = "PATH/TO/DCUMENTS/", 
    recursive = TRUE, pattern = "*.xlsx", full.names = TRUE)) {
  mysheets <- read_excel_allsheets(file)
  mysheets <- bind_rows(mysheets, .id = "column_label") 
  allsheets[[file]] <- mysheets
}

其中PATH/TO/DOCUMENTS可能与您喜欢的"C:/Users/Thiphaine/Documents/类似.

where PATH/TO/DOCUMENTS is probably something like "C:/Users/Thiphaine/Documents/ for you.