通过公共列组合多个文件并添加值

Question

我大约有600个.txt文件采用这种格式

while(true){
    fetch(https://api.exchangeratesapi.io/latest)
    .then(res => ......
}

每个文件都有2列，每个文件中都存在一个称为Position的列；第二列表示标识符，在每个文件中都不同。

每个文件中的行数都不同。

我希望将所有这600多个文件合并为一个数据帧，并添加重复的值，以便最终获得唯一的行。

这是我首先尝试的

Position    SRR7622449
chr1_944296 1
chr1_944307 1
chr1_946247 1
chr1_1014274    1
chr1_1401954    1
chr1_1541864    1

这给了我一个巨大的数据框，我发现现在“位置”列已重复。 我想要这个结果：

require(readr)
require(dplyr)
require(tidyr)

files <- dir(pattern = "*.txt")
data <- files %>% map(read_tsv) %>% bind_rows()

代替

Position    SRR7622449  SRR7622450
chr1_944296 2   1

当我尝试

Position    SRR7622449  SRR7622450
chr1_944296 1   NA
chr1_944296 1   1

我似乎正在失去价值。我该怎么做才能解决此问题？