r - 在 R 中合并 CSV 文件和不匹配的文件头

Question

我有一个包含数百个 .csv 文件的文件夹，我想将这些文件合并到一个数据框中。

我一直在使用这段代码，它的效果相对较好，但仅适用于具有匹配 header 的文件。

    df <- do.call(rbind, lapply(filenames , read.csv))

两部分问题。

1.) 我想附加此 do.call 代码以包含一个附加列，其中包含每行数据的 .csv 文件名

2.) 我还希望能够合并带有不匹配 header 的 .csv 文件。每个文件有四列(名称不同)，但数据类型匹配。因此，无论列标题如何，我都想强制将文件绑定(bind)在一起。

这篇文章很有帮助，但对合并带有非数学标题的文件没有帮助:

Merge multiple CSV files and remove duplicates in R

我也用过这段代码；再次仅适用于具有匹配 header 的文件:

    for (file in filenames){
   # if the merged dataset doesn't exist, create it
    if (!exists("dataset")){
     dataset <- read.csv(file, header=TRUE, sep="\t")
    }
   # if the merged dataset does exist, append to it
    if (exists("dataset")){
     temp_dataset <-read.csv(file, header=TRUE, sep="\t")
     dataset<-rbind(dataset, temp_dataset)
     rm(temp_dataset)
    }
   }

Answer 1

关于:

df <- do.call(rbind, lapply(filenames , 
                        function(x) data.frame(filname = x, read.csv(x)))