r - 将多个文本文件合并为一个 tsv 文件

Question

我总共有 254 个文本文件。我想在 r-programming 中将所有文本文件转换为一个 tsv 文件。我该怎么做？即使在 r 中不可能，还有其他方法可以做到吗？

 path <- setwd("~/syeda_demo/transcripts/")

 files <- list.files(path = 'path', 
                pattern = '\\.txt$', full.names = TRUE)

map_dfr(files, read_table) %>%
      write_tsv('path/newfile.tsv')`

Answer 1

我们从带有 list.files 的文件夹中获取文件列表，然后遍历文件，使用 read_table来自 readr要读取所有这些，请将它们行绑定(bind)到单个数据集( _dfr )并将其作为新文件写回 write_tsv

library(readr)
library(purrr)
library(dplyr)
files <- list.files(path = '/path/to/your/folder', 
            pattern = '\\.txt$', full.names = TRUE)
map_dfr(files, read_table) %>%
      write_tsv(path = '/path/to/your/folder/yourfile.tsv')

如果文件真的很大，我们可以使用 fread/fwrite来自 data.table

library(data.table)
fwrite(rbindlist(lapply(files, fread), fill = TRUE), 
    file = "/path/to/your/folder/yourfile.tsv", sep="\t")