列出到层次结构图

Question

是否存在一种优雅的方法来转换R列表，例如..>

x = list(
  `People who` = list(
    `believe in aliens` = list(
      `believe aliens visit/visited Earth` = 5,
      `believe in aliens elsewhere in universe` = 45
    ),
    `do not believe in aliens` = 50
  )
)
到一个可以例如生成sankey图？热衷于避免可怕的递归黑客攻击。

如果有帮助，叶值（在此示例中为百分比）可以通过其他方式合并。预先感谢。

---

编辑。示例sankey来说明图形结构

是否有一种优雅的方法来转换R列表，例如.. x = list（`People who` = list（`相信外星人`= list（`相信外星人访问/访问地球`= 5，`相信外星人...

Answer 1

那种可怕的递归方法：