すべての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())))