循环读取和合并r中的多个excel表

Question

有很多关于 XLConnect 和使用 XLConnect 读取 R 中的 excel 文件的帖子，例如 How to read multiple excel sheets in R programming?，包括 rbind 函数，但没有人回答这个问题：

如果我在一个目录中有多个 excel .xls 文件，我如何使用循环来读取和合并 每一个都按顺序？

我有一个目录，所以我这样做：

 setwd("C:/Users/usuario/Desktop")
  library(rjava)
  library(XLConnect)

该目录有 28 个 excel 文件，名称如下：

 Bitacora_Metrocali_01_02_2014C
 Bitacora_Metrocali_02_02_2014C
         .    ...    ...
 Bitacora_Metrocali_28_02_2014C

所以我需要使用以下函数合并它们： 合并(x,y,all=T)

因此它可以向数据框添加新列。问题是，我需要一个开始的数据框 合并第一个和第二个，然后按顺序添加所有新工作表。全部出类拔萃 感兴趣的文件在表 1 中。

谢谢！

Answer 1

这对你有用吗：

# This will give you a vector of the names of files in your current directory 
# (where I've assumed the directory contains only the files you want to read)
data.files = list.files()

# Read the first file
df = readWorksheetFromFile(file=data.files[1], sheet=1)

# Loop through the remaining files and merge them to the existing data frame
for (file in data.files[-1]) {
    newFile = readWorksheetFromFile(file=file, sheet=1)
    df = merge(df, newFile, all=TRUE)
}

Answer 2

这是lapply 和Reduce 方法 正如您提到的 xls 文件，我正在使用 gdata 包中的 read.xls。 如果是 xlsx，请将 read.xls 替换为 readWorksheetFromFile 并加载相应的库。

library(gdata)
data.files = list.files(pattern = "*.xls") #get list of files
data.to.merge <- lapply(files, read.xls) #read in files using lapply
merged.data <- Reduce(function(...) merge(..., all = T),data.to.merge)#merge all the files

merged.data 将包含来自所有工作表的数据，并且还将处理以下情况 具有不同标题的文件。