r - R中的分形序列

Question

我正在寻找一个在 R 中创建分形序列的函数，我想知道 R 中是否有内置的便利函数可以做到这一点。

假设，我想创建以下分形序列：

1 1 2 1 2 3 1 2 3 4 1 2 3 4 5

代码

我可以编写一个简单的函数来创建分形序列：

library(purrr)

x <- function(x){
  map(seq(1,x, 1), ~seq(1,.x, 1)) %>% unlist
}

x(5)
#>  [1] 1 1 2 1 2 3 1 2 3 4 1 2 3 4 5

问题

有没有更简单的方法来做到这一点？

标签： rsequence

Answer 1

您可以sequence在基础 R 中使用函数：

x <- function(x){
    sequence(seq_len(x))
} 

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