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

假设我有一个从1到5的向量

 a<-c(1:5)

---

我们可以反转向量并应用

序列

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

---

m1@SandipanDey我想你需要一个倒数第二眼可能是这个
unlist（Map（rev，Map（seq，5:1，1））
或者更简单？你的解决方案太棒了。这个@SandipanDey解决方案的变体对我很有用：
unlist（Map（seq，5:1））
@akrun非常感谢。似乎
sequence
仅适用于减少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