目前,我正在使用Excel工作簿进行> 15张。我使用以下序列:
#libraries
library(data.table)
library(openxlsx)
#load excel file
wb <- loadWorkbook("Data.xlsx")
#write sheets into a list of data frames
name <- names(wb)
df <- list()
for (i in 1:length(name)){
d <- lapply(i, function(i) readWorkbook(wb, sheet = name[i], startRow = 1, colNames = TRUE, rowNames = FALSE, detectDates = TRUE, skipEmptyRows = TRUE, skipEmptyCols = TRUE, rows = NULL, cols = NULL, check.names = FALSE, namedRegion = NULL, na.strings = "NA", fillMergedCells = FALSE))
df <- append(df, d)
}
#assign names to columns
names(df) <- name
#merge DFs into one list
DT <- rbindlist(df)
现在,我一直在使用非常小的数据集,因此性能不是问题。但是,我想知道是否有更简单的方法来执行此操作,以防我处理大数据集。
非常感谢你的意见。