使用seq和rep创建一个由5个整数组成的序列，在每次重复时递增1

Question

我试图创建向量：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使用rep和seq函数

到目前为止，我有：

rep(seq(1,5),5)

这将产生：

1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5

我一辈子都搞不懂如何递增地添加1。

我尝试了rep（seq（1,5），5,1）和rep（seq（1,5），5，每个1和许多其他变体。

是否需要for循环？

Answer 1

匿名用户

这将是一个分而治之的例子。所以你基本上想建立一个1-5，2-6，3-7，4-8，5-9的序列。这里的模式是i-（i 4）。

因此，这里有一个解决方案：

unlist(lapply(1:5, function(i) seq(i, i+4)))

执行i=1-5的子模式。结果是一个列表，因此你把它取消，把你归结为一个简单的

 [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

编辑：是的，您确实需要一个“循环”，但这清楚地表明，在R中，可以使用*apply函数（sapply，lappy，apply，mapply）执行许多循环操作。

在这种情况下，我们对不同的值执行相同的函数，这就是为什么使用sapply更容易的原因。如果您有一个依赖于以前的值或行的计算，那么传统的循环是一种方法。

这里，您的函数是seq（i，i4）。当它如此简单时，我们不需要麻烦将其分配给名称，而是创建了一个“lambda函数”或“匿名”函数。完全相同的结果可以通过以下方式实现：

sequence_1_to_4 <- function(i) {
  seq(i, i+4)
}
sequences <- lapply(1:5, sequence_1_to_4)
single_sequence <- unlist(sequences)

Answer 2

查看序列：

sequence(nvec = rep(5L, 5L), from = 1:5)
[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

注：R4.0.0中引入了from参数。从R新闻4.0.0：

sequence（）[…]从]获取参数[例如，以生成更复杂的序列。

Answer 3

利用R的回收矢量特征：

1:5 + rep(0:4, each = 5)
# [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

请注意，1:5给出了与seq（1,5）相同的结果。