开始增加的重复序列

Question

所以我刚才做的是:

s1 <- seq(1, 3, by = 0.5)

rep(s1, 3)
# [1] 1.0 1.5 2.0 2.5 3.0 1.0 1.5 2.0 2.5 3.0 1.0 1.5 2.0 2.5 3.0

s2 <- seq(-4, 4, by = 2)

rep(s2, each = 3)
# [1] -4 -4 -4 -2 -2 -2  0  0  0  2  2  2  4  4  4

现在我应该编写一些最终应该如下所示的代码:

1 2 3 4 5 2 3 4 5 6 3 4 5 6 7 4 5 6 7 8 5 6 7 8 9

1 到 5 5 次，但第一个数字应始终增加 1。我该怎么做？

Answer 1

我想你可以像下面那样尝试嵌入

> n <- 5
> c(embed(seq(n + 4), n)[, n:1])
 [1] 1 2 3 4 5 2 3 4 5 6 3 4 5 6 7 4 5 6 7 8 5 6 7 8 9