了解R中树（data.tree）的递归构建

Question

我正在尝试使用data.tree包在R中递归构建树。 回答的任何人都请理解下面的递归。下面的代码仅包含两个级别的递归。在第二级递归中，我打印了树结构（在我的代码中标记了print语句作为参考），它类似于下图。

代码全部完成后，树状结构就变成了

。

我不明白第2级递归的树如何与第1级递归的树完美融合。

library(data.tree)
library(visNetwork)

recurs=function(i,previous_iteration_tree)
{
  if(i<=6)
  {
    if(i==1)
    {
      tree<-Node$new(i)
      tree$AddChild(i+1)
      tree$AddChild(i+2)
      tree$AddChild(i+3)
      tree$AddChild(i+4)
    }
    if(i==6)
    {
      dummy<-FindNode(previous_iteration_tree,i-4)
      a=dummy$AddChild(i)
      tree=a

      print(tree)#<------------------HERE
      #see the tree here
    }
  }
  else
    return(0)

  recurs(i+5,tree)

  plot(tree)
}

recurs(1,0)

在这种情况下请帮助我！