如何在r中使用循环进行子集化和分组？

Question

我的大部分问题都是如何提取和组织数据，没有事先的培训我为无法清楚地表达我想要的东西而道歉。 我希望我甚至知道如何在教科书或网上查找内容。 这是我现在的问题：

我有一个信息数据框，其中有一个名为ID的唯一组ID，有153个唯一ID，但我有来自这些组的> 6,000行信息​​。

我想做的是一次从两组中获取所有信息，并写出一个包含所有相关信息的简单csv文件。 如果总体人数奇数（n = 153），那将如何运作？

我想是这样的：

IDs = unique(dat$ID)
for (i in length(IDs)){
    IDgp = subset(dat, dat$ID==IDs[i] & dat$ID==IDs[i+1])
    write.csv(IDgp, paste(IDgp[i],".csv")
    i = i+2
    }

这不起作用，我不知道如何让它增加到下一个“2组”。 我知道for循环是笨重的，我原本认为ddply可能会工作，甚至是一个命令而不是子集。 由于在RI中有很多方法可以做，所以我不确定甚至可以称之为我想要做什么。 我想我已经复杂了。

我一直在寻找答案并且认为这是一种可能性，但是不知道如何让它一次写出超过1组的信息而且我不清楚函数（x）命令在做什么：

d_ply(dat, "ID", function(x)
     write.csv(x[i], file = paste(x$ID[i], ".csv")
     , row.names = FALSE))

Answer 1

也许这可以帮助。 但我认为有更优雅的方式来做到这一点。

IDs = unique(dat$ID)
for (i in seq(1, length(IDs), 2)){
  write.csv(dat[dat$ID %in% IDs[i+c(0,1)], ], 
    paste(IDs[i], "_", IDs[i+1], ".csv", sep=""))
}

编辑为全长ID创建序列

Answer 2

这是一种从ID构建适当维度矩阵的方法，然后循环遍历它们：

dat <- data.frame(id = 1:10, foo = runif(10))
#This will throw a warning if dimensions don't line up, not sure what you want to do with those
idpairs <- matrix(sort(unique(dat$id)), ncol = 2, byrow = TRUE)
> head(idpairs,2)
     [,1] [,2]
[1,]    1    2
[2,]    3    4
a_ply(idpairs, 1, function(x) print(dat[dat$id  %in% x,]))

显然，您可以使用适合您的目的替换上述print功能。