如何重复合并同一文件夹中的文件组？

Question

我有 1 个文件夹，其中包含 1000 多个文件（标题格式 = 5555_45）。前 4 位始终包含属于同一文件且应合并的文件的标识码。因此，我需要合并包含相同代码的文件组并将其保存在另一个文件夹中。

下面的代码允许我合并文件夹中的所有文件并保存它，并将前四位数字作为变量包含在内。

files <- list.files("PATH", pattern="*.TXT")
file.list <- lapply(files, read.table)
setattr(file.list, "names", files)
masterfilesales <- rbindlist(file.list, idcol="id")[, id := substr(id,1,4)]
write.table(masterfilesales, "PATH/5555.txt", sep="\t")

是否可以调整此代码（当我想合并一个文件夹中的所有文件时它可以工作）重复执行此操作以处理我的文件夹中包含相同前 4 位数字的文件？

Answer 1

下面的代码使用sapply 而不是lapply 读取数据，因为sapply 自动使用文件名作为每个列表元素的名称。然后我们rbind每组文件都有相同的四位数前缀。最后，我们使用四位前缀作为文件名来写入每个新的堆叠数据帧。您可以一步完成所有这些，但我将它们分开是希望代码更容易理解。

# Use sapply so that name of each list element will be the file name
file.list = sapply(files, read.table, simplify=FALSE)

# rbind each group of data frames that have the same four-digit prefix
file.list.stacked = sapply(unique(substr(names(file.list), 1, 4)), function(x) {
  do.call(rbind, file.list[grep(x, names(file.list))])
}, simplify=FALSE)

# Write the each of the new "stacked" data frames that we've just created
lapply(names(file.list.stacked), function(df) {
  write.table(file.list.stacked[[df]], file=paste0(df, ".txt"), sep="\t")
})