r - 在 R 中使用文件名导入多个 Excel 文件

Question

我有大约一百个 excel 文件需要导入 R 并合并。所有的 excel 文件都有四列，每一列都需要导入。这些文件如下所示:

1     127          122
1     87      
2     107     
1     136    k    
1     210     

我还需要为每一行添加文件名作为第五列。所有excel文件都在同一个文件夹中。

到目前为止，我已经尝试过以下操作:

library(xlsx)
setwd("c:/temp/")
filenames <- list.files(pattern=".xls")
do.call("rbind", lapply(filenames, function(x) read.xlsx(file=x, sheetIndex=1, colIndex=(1:4), header=FALSE, FILENAMEVAR=x)))

我收到以下错误:rbind(deparse.level, ...) 中的错误:参数的列数不匹配

我已将问题定位为清空第三列和第四列中的单元格，因为如果我将其限制为第一列和第二列，则该功能可以完美运行。

Answer 1

我自己想通了。关键是使用 rbind.fill而不是 rbind .

library(plyr)
df.list <- lapply(filenames, function(x) read.xlsx(file=x, sheetIndex=1,
                  colIndex=1:4,as.data.frame=TRUE, header=FALSE, FILENAMEVAR=x))
final.df <- rbind.fill(df.list)