通过子数据迭代

Question

我正在尝试给课程生分配作业，所以这是家庭作业。 我希望有人能解释为什么我在做什么不起作用。 我有一个名为complete_cases的数据框，我必须从更大的“集合”中报告指定的“观察”集合中有多少记录。数据的格式为：

              Date sulfate nitrate ID
279 2003-10-06    7.21   0.651  1
285 2003-10-12    5.99   0.428  1
291 2003-10-18    4.68   1.040  1
297 2003-10-24    3.47   0.363  1
303 2003-10-30    2.42   0.507  1
315 2003-11-11    1.43   0.474  1

等等，对于ID为1到332的332个不同集合。我已经“找到”了记录已完成的实例，并且必须返回数据来自哪个集合以及指定集合中有多少个完整数据集（按ID）我正在尝试使用：

for (i in id){
   list <- nrow(complete_cases[i])
   data<-cbind(id = i,  nobs= list)
  }    

数据如果我使用一组数据调用该函数，它似乎可以正常工作：给我以下信息：

      id nobs
[1,]  1  117

但是尝试将其应用于id <-c（2,4,8,10,12）会给我错误：

Error in `[.data.frame`(complete_cases, i) : undefined columns selected

所以我期望的是，迭代将返回c（2,4,8,10,12）中每个id的行数，并返回id和每个id的大小。 这更清楚吗？

Answer 1

您的问题在于子数据的设置方式，为了指定列ID应该是迭代器值所引用的ID您必须更具体。 有很多方法可以做到这一点，这是一种：

complete_cases[complete_cases$ID == i, ]

您每次也将仅使用data <- ...覆盖我的向量，而我个人最喜欢的是，它不需要您指定最终集合的维，如下所示：

data_summary <- vector("list")
k <- 1
for (i in id){
   current_id_rowcount <- nrow(complete_cases[complete_cases$ID == i, ])
   data_summary[[k]] <-cbind(id = i,  nobs=current_id_rowcount)
   k <- k + 1
}    
final <- do.call(rbind, data_summary)