从 Excel 工作簿中读取某些工作表

Question

我有一本包含 10 张工作表的工作簿：一半的工作表名称中包含“Survey”一词，另一半的工作表名称中包含“Census”一词。

我想阅读工作表名称中包含“调查”一词的所有工作表，并将它们附加到单独的工作簿中。

工作表名称为：WA Survey、Survey MD、DC Survey、VA Survey、Survey GA。

我有什么：

 library(XLConnect)
 wb <- loadWorkbook("Data.xls")
 dataMD <- readWorksheet(wb, sheet = "Survey MD", startCol = 1, endCol = 10)
 dataWA <- readWorksheet(wb, sheet = "Survey WA", startCol = 1, endCol = 10)
 dataDC <- readWorksheet(wb, sheet = "Survey DC", startCol = 1, endCol = 10)
 dataVA <- readWorksheet(wb, sheet = "Survey VA", startCol = 1, endCol = 10)
 dataGA <- readWorksheet(wb, sheet = "Survey GA", startCol = 1, endCol = 10)
 total <- merge(dataMD,dataWA,dataDC,dataVA,dataGA,by="ID")

我怎样才能让这更简单？我希望我能在 3-4 行内完成这项任务？

Answer 1

您可以像这样使用 readxl 包并过滤调查数据表，然后一次性阅读所有内容。

library(readxl)

# file including path if needed
file <- "Data.xls" 
# read the sheets and only keep the Survey sheets
sheets <- excel_sheets(file)
sheets <- sheets[grep("Survey", sheets)]

# read the data, only first 10 columns (A:J)
excel_data <- lapply(sheets, read_excel, path = file, range = cell_cols("A:J") )

您最终会得到一个数据列表。如果所有列都相同，您可以使用do.call("rbind", excel_data) 或dplyr::bind_rows

Answer 2

您可以使用工作表名称定义一个对象，然后使用lapply 获取导入的 Excel 文件列表。

sheets <- paste("Survey", c("MD", "WA", "DC", "VA", "GA"))
excel.list <- lapply(sheets, function(x) 
  readWorksheetFromFile("Data.xls", sheet=x, startCol=1, endCol=10))

现在您可以处理此列表以获得所需的最终 data.frame。

当且仅当所有 Excel 工作表都包含相同顺序的相同变量时，才考虑使用 do.call(rbind, Excel.list))。