如何读取R中的多个文本文件

Posted 2021-03-27

我有多个标签分隔两列文件，如下所示：

[enter code here][1]

我想像下面这样合并它们：

[enter code here][1]

在某些情况下，rownames可能会丢失。我在很多方面尝试过但未能获得预期的结果。也许我错过了什么。有帮助吗？

fls=list.files('/Users/mzillur/geo/data/E-GEOD-64573/')
ids <- read.table(fls[1], header=FALSE, sep="\t")[,1]
d1=do.call(cbind,lapply(fls,function(fn)read.table(fn,header=FALSE, sep="\t")[,2]))
d2=cbind(ids,d1)

对此有何帮助？最诚挚的问候Zillur

答案

检查? map_dfc

library(purrr)

map_dfc(fls, read.table, header = FALSE, sep = "\t")