r - 如何将重复节点修剪到最近的共同祖先？数据树 R

Question

我有一个表示为树的组织结构。

library(data.tree)
library(dplyr)



    df <-data.frame(from = c('BIG CORP Inc.','BIG CORP Inc.', 'BIG CORP Inc.', 'ABC Inc.', 'ABC Inc.', 
                              'Subsidiary 1', 'Subsidiary 1', 'Subsidiary 2', 'Subsidiary 2', 'BCD Inc.', 'CDE Inc.'),
                     to   = c('ABC Inc.',     'BCD Inc.',      'CDE Inc.',  'Subsidiary 1', 'Subsidiary 2',
                              'Subsidiary 3', 'Subsidiary 4', 'Subsidiary 4', 'Subsidiary 3',  'Subsidiary 4', 'Subsidiary 4'),
                     ownership = c(1,1,1, 1, 0.5, 0.5, 0.25, 0.25, 0.5, 0.25, 0.25),
                     cost = c(0, 100,100,100,100,100,100,100,100 ,500, 500))
    
    
    org_str1 <- FromDataFrameNetwork(df)
    
    print(org_str1, "ownership", "cost", "exposure" ,"level")

如果你注意到，树中的关系是一个孩子可以有多个父母。如下图所示，子公司 4 位于 4 个独特的基础分支之下。同样，子公司 3 位于 2 个独特的分支机构。

我如何总结我的树，以便孩子坐在多个分支上的任何地方，我都可以在最早的共同祖先下查看该孩子。

因此，例如，子公司 4 需要位于 BIG CORP 之下，因为这是包含子公司 4 的所有分支机构的第一个共同祖先。同样，子公司 3 应直接在 ABC Inc. 下报告。