r - 对列表中的每个数值列表求和

Question

我想将值附加到 R 中河图中的标签

我有一个值列表，它是显示节点之间的流所必需的，如下所示:

edges <- list( A= list( C= 10, E= 5 ), 
               B= list( C= 10 ), 
               C=list(D = 13, E = 7 )) 

我知道有一个函数可以减少(或求和)列表中的一个元素，如下所示:减少("+",edges$A)

有没有办法将这样的值列表减少到数据框，或者我可以得到总和:

Node Sum
A 15
B 10
C 20
D 13
E 12 

编辑:

我刚刚意识到有一个困惑:看起来我需要两个输出，它可能有点复杂: 1.如果'edges'列表有一个带有类别名称的子列表，总结 2.如果没有，则获取该项目所有出现次数的总和

案例 1:类别 A、B、C(这些是起始节点)案例 2:类别 D、E(这些是河图的末端节点)

我很抱歉造成困惑。

Answer 1

我觉得你可以的

lapply(edges, function (x) sum(unlist(x)))

这会返回一个列表。使用 sapply 会将结果简化为向量。