我正在处理我使用 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等等,但由于某种原因,我无法让它发挥作用。如果有人可以帮助我,这将是惊人的!
答案 0 :(得分:0)
在melt
list
stack
vector
之后,我们可以list
library(reshape2)
melt(lapply(Between, stack))[-2]
{{1}}