如何在R中创建扩展序列，例如c（1,1,2,1,2,3,1,2,3,4,1,2,3,4,5）

Question

我一直试图在不使用任何循环的情况下创建序列c（1,1,2,1,2,3,1,2,3,4,1,2,3,4,5 ......） 。有谁知道如何创建这样的序列？

Answer 1

我会投入

unlist(lapply(1:5, seq_len)) 

这相当于，如果有点长，则为alexis_jaz评论

sequence(1:5)

Answer 2

do.call(c, sapply(1:5, function(x) 1:x))

Answer 3

或者

v1 <- 1:5
seq_len(sum(v1))-rep(cumsum(c(0L, v1[-length(v1)])), v1) 
#[1] 1 1 2 1 2 3 1 2 3 4 1 2 3 4 5