R加载多个excel文件并合并

Question

我有许多 Excel 文件需要加载并合并到一个数据框中。

下面的脚本有效！但是，在合并所有文件之前，我想将每个文件名粘贴到新列中。

library(gdata)
library(tools)
filelist <- list.files(pattern = "*\\.xlsx$")
files = lapply(filelist, read.xls, header=TRUE)

new = Reduce(function(...) merge(..., all=T), files)

所以我添加了这个：

files$source <- file_path_sans_ext(filelist)

但是，这不起作用。

我想要的输出是：

Col1 Col2 Col3 Source(this column doesnt exist in excel)
abc  1    2    Filename1
def  3    4    Filename2

我怎样才能做到这一点？

Answer 1

试试

library(tools)
source <- file_path_sans_ext(filelist)
files1 <- Map(cbind, files, Source=source)
files1
#[[1]]
#  Col1      Col2   Source
#1    A 0.5365853 Filname1
#2    A 0.4196231 Filname1

#[[2]]
# Col1     Col2   Source
#1    A 0.847460 Filname2
#2    C 0.266022 Filname2

#[[3]]
# Col1       Col2   Source
#1    C -0.4664951 Filname3
#2    C -0.8483700 Filname3

数据

set.seed(24)
files <- lapply(1:3, function(i) data.frame(Col1=sample(LETTERS[1:3], 2, 
         replace=TRUE), Col2=rnorm(2)))
 filelist <- paste0('Filname', 1:3, '.txt')

Answer 2

或循环解决方案将源文件的名称传递给构成要合并的数据集的数据框。

for (i in length(files)) {
    dta <- files[[i]]
    dta$source <- filelist[[i]]
    files[[i]] <- dta
}

我按照你最初的建议将它分解成块：

files$source <- file_path_sans_ext(filelist)

会将整个向量传递给$source 列。