我有多个选项卡,分隔两列文件,如下所示:
[enter code here][1]
我想像下面这样合并它们:
[enter code here][1]
在某些情况下,行名可能会丢失。我已经尝试了许多方法,但未能获得预期的结果。也许我缺少了一些东西。有什么帮助吗?
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")
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句