r - 112123123412345 のように段階的に増加するシーケンスを生成します

Question

基本的に、シーケンスを生成したいと思います。

n は 2、シーケンスは 112
n は 3、シーケンスは 112123
n は 5、シーケンスは 112123123412345

私は解決策を思いつきました

n=5
seq=1
for (i in 2:n){
  seq=c(seq,rep(1:n,len=i))
}

forループなしでそれを行う方法があるかどうか疑問に思っていますか?

Answer 1

使用sequence:

> sequence(1:5)
 [1] 1 1 2 1 2 3 1 2 3 4 1 2 3 4 5

Answer 2

1 つの可能性を次に示します。

n<-5
unlist(lapply(1:n,function(x) 1:x))
## [1] 1 1 2 1 2 3 1 2 3 4 1 2 3 4 5