r - 将数据帧拆分为 5 个部分并将额外的行放在末尾

Question

例如我有一个这样的数据框:

df <- data.frame(x = 1:104, y = runif(104))

我想把它分成 5 部分，以及 df 末尾的额外 4 行位于列表的最后一部分。
我已经尝试过这些代码，但它们要么将最后 4 行放入 z 中的前 4 个部分中或将它们放入列表的第一部分。

z <- split(df, rep(1:5, length.out = nrow(df), each = ceiling(nrow(df)/5)))
z <- split(df, rep(1:5, length.out = nrow(df), each = floor(nrow(df)/5)))

我要的是分割 df分成5份，如果行号为 df不能被 5 整除，我想把这些额外的行放在 z 的最后一部分
感谢并感谢您的回复。

Answer 1

你可以这样做:

p <- 5
n <- nrow(df)
split(df, cummax(as.numeric(gl(p, n%/%p, n))))