R 层次树图的数据树

我正在寻找一个R函数来构建这里所示的特定类型的图表.Data.tree看起来很有前途，但我被困住了.

我的目标(如图所示)只是一个层次 struct 图，显示数据帧中不同类别的值的计数，越往下越具体.它不是决策树，也不是流程图.重要的是，在给定数据帧和我想要的每个级别的变量的情况下，将列出每个类别中的功能计数.

下面是我数据的一个示例:

tree_data = data.frame(Context = c("urban", "rural", "urban", "urban", "rural", "rural"),
                Lighting = c("daylight", "dark", "dark", "daylight", "daylight", "dark"),
                Driver_age = c("Senior", "Adult", "Adult", "Adult", "Adult", "Senior"))

和所需的输出:

树:树:树我已经用数据走到了这一步.

tree_data$pathString = paste("crashes",
                             tree_data$Context,
                             tree_data$Lighting,
                             tree_data$Driver_age,
                             sep = "/")

crashes = as.Node(tree_data)
print(crashes)

结果组织得很好，但我不确定如何添加计数，或将其转换为上面的可视化格式.

            levelName
1  crashes           
2   ¦--urban         
3   ¦   ¦--daylight  
4   ¦   ¦   ¦--Senior
5   ¦   ¦   °--Adult 
6   ¦   °--dark      
7   ¦       °--Adult 
8   °--rural         
9       ¦--dark      
10      ¦   ¦--Adult 
11      ¦   °--Senior
12      °--daylight  
13          °--Adult 

有人能给出下一步的建议吗？或者，如果有更好的方案，我对此持开放态度.我还try 了图表工具和图形工具，但它们似乎不像是我能够轻松应用于不同数据集的解决方案.我需要这是一个容易重复的东西.