拆分列表并将循环增量加10

Question

如何在r中拆分列表？ 我想以增量方式拆分列表。 对于前：

x <- 1:50
n <- 5
spt <- split(x,cut(x,quantile(x,(0:n)/n), include.lowest=TRUE,   labels=FALSE))

我们得到了

$`1`
[1]  1  2  3  4  5  6  7  8  9 10

$`2`
[1] 11 12 13 14 15 16 17 18 19 20

$`3`
[1] 21 22 23 24 25 26 27 28 29 30

$`4`
[1] 31 32 33 34 35 36 37 38 39 40

$`5`
[1] 41 42 43 44 45 46 47 48 49 50

我不想要这个输出。我想要输出如下，

$`1`
[1]  1  2  3  4  5  6  7  8  9 10 

$`2`
[1] 1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20

$`3`
[1] 1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

$`4`
[1] 1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 2021 22 23 24 25   26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

$`5`
[1] 1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
 41 42 43 44 45 46 47 48 49 50

任何想法？ 而且我也想知道如何在r中将循环增加10？ 感谢。

Answer 1

我们可以使用seq

lapply(seq(10,50, by=10), function(i) x[1:i])

或者@RichardScriven在评论中提到，seq(10,50, by=10)可以替换为1:5 * 10L