r中的递归循环

Question

我是 R 的新手，但我想递归地循环遍历给定列表的元素，作为 presice，我有一个向量列表，其中第一个向量由 (1,2,3,4) 给出，然后我现在想要循环遍历该向量并将获得的第二个向量附加到原始列表中，再次遍历列表中的第二个向量并获得也附加到原始列表中的第三个向量，依此类推。我有这个代码开始`

occlist <- list()
occ_cell <- c(1,2,3,4)

for(i in occ_cell){
  occ_cell <- seq(i,4*i, by = 1)
  occlist[[i]] <- occ_cell
}
`

给出以下列表

#[[1]]
#[1] 1 2 3 4

#[[2]]
#[1] 2 3 4 5 6 7 8

#[[3]]
# [1]  3  4  5  6  7  8  9 10 11 12

#[[4]]
# [1]  4  5  6  7  8  9 10 11 12 13 14 15 16

我想更清楚，让我们有下图

Answer 1

recOcc <- function(i) {
    if (i == 0) return ( NULL )
    append( recOcc(i-1), list(seq(i, 4*i)) )
}

并且，调用 with （重现你的输出）

recOcc(4)
# [[1]]
# [1] 1 2 3 4
# 
# [[2]]
# [1] 2 3 4 5 6 7 8
# 
# [[3]]
#  [1]  3  4  5  6  7  8  9 10 11 12
# 
# [[4]]
#  [1]  4  5  6  7  8  9 10 11 12 13 14 15 16

您也可以在递归调用中使用Recall 来命名您的递归函数，这样可以更改函数名称。

编辑

对于树形结构，你可以试试这个

## i is the number to start the sequence
## depth determines how deep to recurse
recOcc2 <- function(i, depth=3, cur.depth=0) {
    if (depth==cur.depth) return(seq(i, 4*i))
    acc <- as.list(seq(i, 4*i))
    for (ii in seq_along(acc))
        acc[[ii]] <- recOcc2(acc[[ii]], depth, cur.depth+1)
    acc
}

## To recreate the simple list
res <- recOcc2(1, depth=1)

## For nested lists
res <- recOcc2(1, depth=2)