如何在r中合并多张excel工作簿？

Question

假设我有一个名为report.xlsx的excel文件.这个文件有10张,方便地命名为Sheet1到Sheet10.在每张纸上,在第14行上有列标题:S/N,RegistryNr,Surname,FirstName,(空),FatherName,MotherName,sex,(空),DOB.如何将每个工作表合并为一个数据集？

我知道,excel_sheets("report.xlsx")我可以将所有工作表名称都放到矢量中.

我知道,df <- read_excel("report.xlsx", 1, skip = 14)我可以将一张纸的所有数据都输入到数据框df中.

这是我对R的了解程度:/

如何组合上述命令将每个工作表导入到同一数据框中？

Answer 1

我经常使用purrr和readxl执行此操作:

library(purrr)
library(readxl)

file <- 'path to report.xlsx'

sheets <- excel_sheets(file)

df <- map_df(sheets, ~ read_excel(file, sheet = .x, skip = 14))