讀取多個 xlsx 文件以分隔數據幀

Question

尋找一種方法，一次從一個文件夾中讀取多個 xlsx 文件，將每個文件中的每個單獨的工作表加載到一個單獨的數據框中。 我發現的大多數解決方案，例如 purrr::map_df/purrr::map_dfr 似乎都是為了將它們一次拼接成一個 df。

對於上下文：雖然我確實打算最終將這些文件拼接到一個 df 中，但在這樣做之前，首先需要針對每個選項卡進行大量修改。

Answer 1

如果您想使用purrr ，可以使用map代替lapply ：

files <- list.files(pattern = "^.*\\.xlsx$")

dfs <- lapply(files, 
              \(x) {
                sheets <- readxl::excel_sheets(x)
                output <- lapply(sheets, 
                                 \(y) readxl::read_xlsx(x, sheet = y))
                setNames(output, sheets)
              })