在R中组装组合树

Question

我正在尝试构建一个组合树模型，其中初始叶是前6位数字。第二级是父母的6个数字中的5个数字的所有可能的组合。那么第三级是所有可能的4位父级数字的组合。这种模式一直持续到第六级，它只由一位数组成。

那么我的问题是，有没有办法以这种方式生成一棵树？我一直在寻找R中的基本树的例子，但都是两手空空。任何建议都将不胜感激。谢谢

Answer 1

你可以用下面的代码得到类似的东西：

f <- function(x)
{
    if(length(x)==1) return(c(value=x))

    c(list(value=x), child=lapply(seq(x), function(i)f(x[-i])))
}

示例：

> f(1:3)
$value
[1] 1 2 3

$child1
$child1$value
[1] 2 3

$child1$child1
value 
    3 

$child1$child2
value 
    2 


$child2
$child2$value
[1] 1 3

$child2$child1
value 
    3 

$child2$child2
value 
    1 


$child3
$child3$value
[1] 1 2

$child3$child1
value 
    2 

$child3$child2
value 
    1