使用dfToTree转换数据框时触发dfrapply错误，求问题原因

运行以下代码尝试将data.frame转换为树形结构时，出现错误：
Error in dfrapply(x, f, ...) : List element must be either a data frame or another list

代码示例：

library(data.tree)
library(shinyTree)

l1 = c("0000", "0000", "0000", "0000", "0000", "0000", "0000", "0000", "0000", "0000", "0000", "0000", "0000", "0000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000")
l2 = c(NA,     "0100", "0100", "0100", "0100", "0100", "0200", "0200", "0200", "0200", "0300", "0300", "0300", "0300", NA ,    "1100", "1200", "1400", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1600", "1600", "1600", "1600", "1600", "1600", "1600", "1700", "1700", "1700", "1700", "1800", "1800", "1800")
l3 = c(NA,      NA,      "0110", "0120", "0130", "0140", NA,      "0210", "0220", "0230", NA,      "0310", "0320", "0330", NA,      NA,      NA,      NA,      NA, "1510", "1520", "1530", "1540", "1550", "1560", NA,"1610", "1620", "1620", "1620", "1630", "1640", NA,      "1710", "1720", "1730", NA,      "1810", "1820") 
l4 <- c(NA,     NA,     NA,     NA,     NA,     NA,     NA,     NA,     NA,     NA,     NA,     NA,     NA,NA,     NA,     NA,     NA,     NA,     NA,     NA,     NA,     NA,     NA,     NA,     NA,     NA,NA,     NA,     "1621", "1622", NA,     NA,     NA,     NA,     NA,     NA,     NA,     NA,     NA)

df <- data.frame(l1, l2, l3, l4) 
tree <- dfToTree(df, c("l1", "l2", "l3", "l4"))

原因分析与解决方法 #

错误原因 #

核心问题是数据中存在重复的父节点路径，且部分节点同时对应子节点和空值（NA）。比如l1=1000、l2=1600、l3=1620的行出现多次，其中两行有子节点l4=1621和l4=1622，还有一行l4为NA。这种情况会让dfToTree在递归构建树形结构时产生冲突：同一个节点既被识别为包含子节点的列表，又被当作空元素，违反了dfrapply要求的“列表元素必须是data.frame或另一个列表”的规则。

解决步骤 #

1. 替换NA为占位符：将数据中的NA替换为空字符串""，避免dfToTree处理NA时生成异常结构。
2. 去重路径：移除重复的路径行，确保每个父节点下的子节点路径唯一。

修改后的可运行代码 #

library(data.tree)
library(shinyTree)

l1 = c("0000", "0000", "0000", "0000", "0000", "0000", "0000", "0000", "0000", "0000", "0000", "0000", "0000", "0000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000", "1000")
l2 = c("",     "0100", "0100", "0100", "0100", "0100", "0200", "0200", "0200", "0200", "0300", "0300", "0300", "0300", "" ,    "1100", "1200", "1400", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1600", "1600", "1600", "1600", "1600", "1600", "1600", "1700", "1700", "1700", "1700", "1800", "1800", "1800")
l3 = c("",      "",      "0110", "0120", "0130", "0140", "",      "0210", "0220", "0230", "",      "0310", "0320", "0330", "",      "",      "",      "",      "", "1510", "1520", "1530", "1540", "1550", "1560", "", "1610", "1620", "1620", "1620", "1630", "1640", "",      "1710", "1720", "1730", "",      "1810", "1820") 
l4 <- c("",     "",     "",     "",     "",     "",     "",     "",     "",     "",     "",     "",     "", "",     "",     "",     "",     "",     "",     "",     "",     "",     "",     "",     "",     "", "",     "1621", "1622", "",     "",     "",     "",     "",     "",     "",     "",     "")

# 保留唯一路径
df <- unique(data.frame(l1, l2, l3, l4)) 
tree <- dfToTree(df, c("l1", "l2", "l3", "l4"))

运行修改后的代码，就能正常生成树形结构了。

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