基中的图案矢量

Question

我想生成一个具有以下重复模式的向量：

1 1 2 1 2 3 1 2 3 4 ... 

范围从一个到某个任意停止点。

我可以使用sapply 后跟unlist 将其组合在一起，如下所示，但确实感觉应该有一个比这更直接的碱基调用。

repeating_function <- function(stop_point) { 
    res_list <- sapply(1:stop_point, FUN=function(x) {1:x}, simplify=TRUE)
    res      <- unlist(res_list)

    return(res)
} 

产生：

repeating_function(5)

[1] 1 1 2 1 2 3 1 2 3 4 1 2 3 4 5

Answer 1

一个更简单的选择是

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

封装在函数中

repeating_function(val) {
   sequence(sequence(val))
  }