Question

我在发布之前对此进行了一些研究，我想出了这个脚本（它不起作用）：

library(gdata)
setwd("C:/Users/rshuell001/Desktop/excel_files")
data.files = list.files(pattern = "*.xls") 

files<-data.files

#get list of files
data.to.merge <- lapply(files, read.xls) #read in files using lapply

在data.to.merge之后，我收到此错误：

findPerl中的错误（详细=详细）：

有人可以帮我解决这个问题吗？

Answer 1

答案取决于您希望数据的外观。如果您使用lapply，您将获得一个列表。

library(xlsx)
setwd("C:/Users/rshuell001/Desktop/excel_files")
data.files = list.files(pattern = "*.xls")
data <- lapply(data.files, function(x) read.xlsx(x, sheetIndex = 1))

如果您想将数据合并到一个数据框中（例如，如果您的文件都具有相同的格式，我建议使用for循环

for (i in file.list) {
    data <- rbind(data, read.xlsx(i, sheetIndex = 1))
}

根据文件内容的不同，您可以rbind替换merge。

如何将多个Excel工作表中的数据合并到文件夹中的多个Excel文件中？

1 个答案: