如何在R编程中读取多个excel表？

Question

我有一个包含400张的excel文件。如何使用read.xls函数将此excel文件加载到R？请提供此示例代码。

Answer 1

我只是假设你想要它作为一个data.frame（）并且所有工作表都包含相同的数据。

library(xlsReadWrite) 
sheets <- c("Sheet 1","Sheet 2", "Sheet 3")

df <- data.frame()

for (x in 1:400) 
df <- rbind(df, read.xls("filename.xls", sheet=sheets[x]))
}

如果每个工作表都是自己唯一的data.frame（），您可能希望将它们放在列表中。否则，如果您希望它们作为环境中的对象，则可以使用assign（）。

sheet_list <- list()
for(x in 1:400) {
sheet_list[[x]] <- read.xls("filename.xls", sheet=sheets[x])
} 

或者，没有for循环：

sheet_list <- lapply(sheets, function(x) read.xls("filename.xls",sheets=x))