3

我正在使用igraph包分析的网络图列表(即 1000 多个邻接矩阵)。这些图表存储在一个拆分文件中,每个图表都有一个唯一的 ID。

我使用以下代码计算了每个图中各个节点的中介中心性分数:

b <- function (b) betweenness(b, directed = FALSE, normalized = TRUE)
Between <- lapply (listofgraphs, b)

show(Between) #looks like this:

$`35630`           #Graph ID
1676 1741 1750     #Node ID
0    1    0        #Scores

$`35631`
1738 1750 
0     1 

$`35633`
1738 1750 4110 
0    0    0 

现在,我需要的是一个数据框,其中包含图表 ID、节点 ID 和介数的各个分数的列。像这样:

Graph.ID    Node.ID    Betweenness
35630       1676       0
35630       1741       1
35630       1759       0
35631       1738       0
35631       1750       1
35631       1738       0      
35633       1750       0
35633       et cetera .....

我试图取消列出、rbind 等,但由于某种原因我无法让它工作。如果有人可以帮助我,那就太棒了!

4

1 回答 1

1

我们可以meltlist_ _stackvectorlist

library(reshape2)
melt(lapply(Between, stack))[-2]
于 2016-03-27T03:17:12.527 回答