目录中按顺序排列的` `rbind`‘数据集

Question

我有一个具有相同行号的数据集。我想用两个序列来表示这些数据。

例如，对于数据、5LSTT-test12_1.avgm和5LSTT-test12_1_sum.avgm，首先我希望通过使用rbind合并它们，并使用新的名称保存它们，比如test12.avgm。对于同一目录中的每两个文件，都应执行此过程。

我已经检查过网络，但是大多数将数据合并到一个文件中的解决方案。我不知道如何合并两个数据，并将它们保存为单个数据，并完成路径中所有文件的处理。

数据集是这样的

5LSTT-test12_1.avgm   
5LSTT-test12_1_sum.avgm  
5LSTT-test13_1.avgm   
5LSTT-test13_1_sum.avgm  
.  
.   
.  
.  
5LSTT-test30_1.avgm   
5LSTT-test30_1_sum.avgm  

Answer 1

假设对象名称的向量('v1')是有序的，我们可以使用gl将其排序为每个list元素的2个元素。我不确定这些对象是否已经在全球环境中。在这种情况下，我们可以使用mget并将do.call(rbind, lapply(x, read.table)替换为do.call(rbind, mget(x))。

lst <- lapply(split(v1,as.numeric(gl(length(v1), 2, length(v1)))), 
               function(x) do.call(rbind,lapply(x, read.table)))

将“lst”的名称改为“nm1”

nm1 <- sprintf('test%d.avgm', 12:30)
names(lst) <- nm1

如果我们需要创建新文件，我们可以：

lapply(seq_along(lst), function(i) write.table(lst[[i]], 
                     paste0(nm1[i],'.txt'), quote=FALSE))

数据

v1 <- sort(sprintf('5LSTT-test%d_1.%s', 12:30,
               rep(c('avgm', 'sum.avgm'),each=19)))