创建一系列不同长度的序列

我必须创建一个大量(> 10,000)不同长度序列的序列.我只知道矢量形式的这些序列的长度.

length_v <- c(2,3,4,4,2,6,11,75...................)

每个序列从1开始并以1的步长向前移动.在最后的序列中(组合一个),每个序列必须一个接一个地出现,它们不能混淆.

一个小的演示示例如下:

我说有4个长度分别为2,3,4,6的序列.

s1 <- seq(1, 2)  # 1,2
s2 <- seq(1, 3)  # 1,2,3
s3 <- seq(1, 4)  # 1,2,3,4
s4 <- seq(1, 6)  # 1,2,3,4,5,6 

最后的序列将是

final <- c(s1,s2,s3,s4) **# the order has to be this only. No compromise here.**

我不能用> 10,000个序列做到这一点,效率非常低.有没有更简单的方法呢？

我们可以用 sequence

sequence(length_v)
#[1] 1 2 1 2 3 1 2 3 4 1 2 3 4 5 6

数据

length_v <- c(2,3,4,6)