将每x行添加到我的数据中

Question

假设我无法一次性保存所有内容。我有一个限制，我每次只能保存20行。

示例：

nrow(iris)
intervals <- nrow(z)/20
new_iris <- iris[1:20, ]
new_iris <- rbind(new_iris, iris[21:41, ])
new_iris <- rbind(new_iris, iris[22:42, ])
new_iris <- rbind(new_iris, iris[43:53, ])
...

如何在不手动指定每20行的情况下执行此操作rbind？

Answer 1

我会尝试的第一件事，不是最好的，因为它使用循环，将是这样的：

nrow(iris)
intervals <- floor(nrow(z)/20)
new_iris <- iris[1:20, ]
for (i in 1:intervals){
 new_iris <- rbind(new_iris, iris[i * 20 + 1, (i + 1) * 20])
}

Answer 2

...也许

library(dplyr)
new_iris<-iris %>%
        group_by(grp =  as.integer(gl(n(), 20, n())))