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

问题

有更简单的方法吗？

Answer 1

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

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

Fractal sequence in R