Question

我的数据集具有相同的行号和行号。我希望以{2}的顺序rbind这些数据。

例如，对于数据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

假设对象名称（＆＃39; v1＆＃39;）的向量是有序的，我们可以split使用gl将每个列表元素mget改为2个元素。我不确定这些对象是否已经在全局环境中。在这种情况下，我们可以使用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)))

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

更改＆＃39; lst＆＃39;使用＆＃39; nm1＆＃39;

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)))

数据

# config/routes.rb
class ActionDispatch::Routing::Mapper
  def draw(routes_name)
    instance_eval(File.read(Rails.root.join("config/routes/#{routes_name}.rb")))
  end
end

`rbind`数据集按目录

1 个答案:

数据