rep和/或seq函数创建连续减少向量？

Question

假设我有1到5的向量，

 a<-c(1:5)

我需要做的是通过连续丢失一个元素来重复向量。也就是说，最终结果应该是

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

Answer 1

我们可以反转向量并应用sequence

sequence(rev(a))
#[1] 1 2 3 4 5 1 2 3 4 1 2 3 1 2 1

或另一个选项是toeplitz

m1 <- toeplitz(a)
m1[lower.tri(m1, diag=TRUE)]
#[1] 1 2 3 4 5 1 2 3 4 1 2 3 1 2 1