使用R语言data.tree包获取终端节点（叶节点）的难题

我正在使用R语言的data.tree包构建层级树，但在获取树的最终叶节点（终端节点）时遇到困难。即便参考了包文档，仍无法得到预期结果。

示例树结构代码如下：

# Install the data.tree package if not already installed
# install.packages("data.tree")

# Load the package
library(data.tree)

# Create a root node
root <- Node$new("Root")

# Add the first child
first_child <- root$AddChild("First Child")

# Add the second child
second_child <- root$AddChild("Second Child")

# Add two children to the second child
grandchild1 <- second_child$AddChild("Grandchild 1")
grandchild2 <- second_child$AddChild("Grandchild 2")

# Add a child to Grandchild 1
great_grandchild <- grandchild1$AddChild("Great Grandchild")

# Display the tree
print(root)

我需要提取的目标叶节点为“First Child”“Great Grandchild”“Grandchild 2”，但始终找不到直接提取的方法。请问如何正确从data.tree包中获取终端节点？是否有特定函数或方法？

此外，我认为该包文档较为复杂，连Copilot、Gemini这类AI聊天机器人都难以处理这个看似简单的任务。

解决方案 #

data.tree包中每个Node对象都自带isLeaf属性——当节点没有子节点时，该属性值为TRUE，这是判断叶节点的核心依据。以下是几种可靠的获取叶节点的方法：

方法1：使用Traverse()函数筛选

通过Traverse()遍历整棵树，结合自定义过滤条件筛选出所有叶节点：

# 筛选所有叶节点
leaf_nodes <- Traverse(root, filter = function(node) node$isLeaf)

# 提取叶节点的名称
leaf_names <- Get(leaf_nodes, "name")
print(leaf_names)
# 输出结果:
# [1] "First Child"      "Great Grandchild" "Grandchild 2"

方法2：直接调用根节点的leaves属性

data.tree为Node对象提供了leaves便捷属性，直接访问即可获取所有叶节点：

# 获取所有叶节点
leaf_nodes <- root$leaves

# 提取节点名称
leaf_names <- Get(leaf_nodes, "name")
print(leaf_names)

方法3：使用FindAll()函数

FindAll()同样可以实现节点筛选，用法与Traverse()类似：

leaf_nodes <- FindAll(root, condition = function(node) node$isLeaf)
leaf_names <- Get(leaf_nodes, "name")

扩展说明 #

如果需要获取叶节点的其他属性（如自定义添加的字段），只需将Get()函数的第二个参数替换为对应的属性名称即可。例如，若节点有value属性，可通过Get(leaf_nodes, "value")提取。

内容的提问来源于stack exchange，提问作者Fam