在主列表

Question

我想将值附加到R中河流图中的标签。这是我的问题的第二个（令人困惑的）部分，我决定首先分成两个问题：Sum each list of numerical values within a list

我有一个值列表列表，这是显示节点之间流的必要条件，如下所示：

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

问题： 如何在整个列表中实现子列表中的项目总和，如：

C 20   
D 13
E 12 

我想首先应该将项目提取到数据框中，然后进行总结。或者是否有一些公式可以分解子列表，然后根据类别（C，D，E）对它们中包含的项目求和。

我想知道使用lapply sapply函数，但是在几个子列表中做这件事似乎非常复杂。

Answer 1

library(data.table)

colSums(rbindlist(edges, fill=T), na.rm=T)
# C  E  D 
#20 12 13 

或者：

library(dplyr)

colSums(bind_rows(edges), na.rm=T)
# C  E  D 
#20 12 13 

Answer 2

我们可以使用base R

un1 <- unlist(edges)
tapply(un1, sub(".*\\.", "", names(un1)), FUN = sum)
#  C  D  E 
# 20 13 12