通过partykit中的ctree获取每个终端节点从叶子到根的完整路径

# 安装并加载 partykit 包
if (!requireNamespace("partykit", quietly = TRUE)) {
  install.packages("partykit")
}
library(partykit)

# 使用 ctree 函数拟合决策树
data(iris) # 使用 iris 数据集作为示例
iris_ctree <- ctree(Species ~ ., data = iris)

# 获取树的结构
tree_structure <- nodeids(iris_ctree, terminal = FALSE)

# 函数来获取从叶子到根的路径
get_path_to_root <- function(node_id, tree_structure) {
  path <- c()
  while (node_id > 0) {
    path <- c(node_id, path)
    parent_node <- tree_structure$parent[tree_structure$node == node_id]
    node_id <- parent_node
  }
  return(path)
}

# 获取所有终端节点的路径
terminal_nodes <- nodeids(iris_ctree, terminal = TRUE)
paths_to_root <- lapply(terminal_nodes, get_path_to_root, tree_structure = tree_structure)

# 打印每个终端节点的路径
paths_to_root