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

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

我有一个值列表列表，需要它来显示节点之间的流，如下所示：

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

我知道有一个函数可以减少（或求和）列表中的一个元素，如下所示： 减少（“+”，边$A）

有没有一种方法可以将这样的值列表列表减少为数据框，或者以便我可以获得总和：

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

Edit:

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

情况1：类别A、B、C（这些是起始节点） 案例 2：类别 D、E（这些是河图中的末端节点）

对于造成的混乱，我深表歉意。

我想你可以做

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

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