使用父子关系将长表转换为列表

Question

这是输入。

ID  Element
1   A
1   B
1   C
2   A
2   D
2   E
2   B
3   B
3   D

预期输出看起来与此代码产生的相似

URL <- paste0(
        "https://cdn.rawgit.com/christophergandrud/networkD3/",
        "master/JSONdata//flare.json")

## Convert to list format
Flare <- jsonlite::fromJSON(URL, simplifyDataFrame = FALSE)

# Use subset of data for more readable diagram
Flare$children = Flare$children[1:3]

因此，对于第一个元素A是B的父元素，C是B的父元素，对于第二元素A是D的父元素，D是E的父元素，E是B的父元素。 我尝试使用data.tree包，但我找不到解决方案。