使用 purrr 和 readxl 从多个 excel 文件中读取一个工作表并添加字段

Question

假设我有两个名为packs.xlsx的 excel 文件，每个文件都包含多个工作表。 我想迭代地创建一个 dataframe 只使用每个文件中的一张纸，每个文件都命名为“摘要”。 我如何使用 Purrr 和 readxl go，同时添加一个包含文件名的字段？

当我使用以下代码将工作表另存为 CSV 时，我成功了：

filenames <- list.files(pattern="packs*.*csv")
dat <- map_dfr(filenames, read_xlsx, sheet = "summary") %>% glimpse()

我 go 如何添加一个字段来显示给定行来自哪个文件？ 感谢您提供的任何见解！

Answer 1

假设这两个 packs.xlsx 文件位于不同的子文件夹中：

library(readxl)

filenames <- list.files(pattern = "packs.xlsx", recursive = TRUE)
df <- lapply(filenames, function(fn) {
  # get the sheet detail 
  xl <- read_excel(fn, sheet = "summary")    
  
  # add the filename as a field
  xl$filename <- fn            

  # function return                     
  xl
})

# if both summary sheets have the same format, you can combine them into one 
fin <- do.call(rbind, df)