如何用 R 中的递归函数填充列表？

Question

我正在使用 HAC（分层凝聚聚类）。我有一个树状图，我正在尝试将元素保存到一个文件中，以进行后验分析（按集群为元素分配代码）。

我有一个递归函数，它接受树状图的一个分支并返回一个元素列表。

我的问题如下，当函数返回列表时，它只包含我分支的一个元素，尽管它正确地附加了每个元素。这是我的代码：

lista_interna<-function(lista,elementos){
  print(paste("Tam El. ",length(elementos),""))
  for (i in 1:length(lista)){
    if(typeof(lista[[i]])=="integer"){
      print("agrega agrega...")
      elementos[[length(elementos)+1L]]<-lista[[i]]
    }else if(typeof(lista[[i]])=="list"){
      print("Hace Recall....")
      Recall(lista[[i]],elementos);
    }
  }
  print(elementos) # when I print here the list, contains all elements
  return (elementos)
}

地点：

• lista：是树状图分支
• elementos：是结果列表（包含所提供分支的所有元素）

如果调用函数，结果是一个包含一个元素的列表（第一个叶子）：

empty<-list()
res<-lista_interna(dendrogram_branch,empty)

欢迎提出任何建议。

最好的问候，

弗拉基米尔。

Answer 1

评论：请发布一个可重现的示例。

快速回答： 使用：

elementos <- Recall(lista[[i]],elementos)

你试过了吗？

unlist(lista)

Answer 2

您的函数假定 R 使用的是按引用调用的语义，这是错误的。将列表传递给函数并对其进行修改时，不会更改原始列表。

您需要做的是使用 Recall 的返回值并将结果连接起来，如下例所示：

f = function (x) { 
       if (x <=0 ) {
          return( c() )
       } else {
         return( c(Recall(x-1),x) )
       }
    }

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