Question

我在igraph中使用了fastgreedy算法，用于加权无向图中的社区检测。之后我想看看模块化，我得到了不同方法的不同值，我想知道为什么。我举了一个简短的例子来说明我的问题：

library(igraph)
d<-matrix(c(1, 0.2, 0.3, 0.9, 0.9,   
            0.2, 1, 0.6, 0.4, 0.5,  
            0.3, 0.6, 1, 0.1, 0.8,  
            0.9, 0.4, 0.1, 1, 0.5,  
            0.9, 0.5, 0.8, 0.5, 1), byrow=T, nrow=5)    

g<-graph.adjacency(d, weighted=T, mode="lower",diag=FALSE, add.colnames=NA)
fc<-fastgreedy.community(g)

fc$modularity[3]
#[1] -0.05011095
modularity(g,membership=cutat(fc,steps=2),weights=get.adjacency(g,attr="weight"))
#[1] 0.07193047

我希望这两个值都是相同的，如果我尝试使用未加权的图表，我会得到相同的值。

d2<-round(d,digits=0)
g2<- graph.adjacency(d2, weighted=NULL, mode="lower",diag=FALSE, add.colnames=NA)
fc2<-fastgreedy.community(g2)
plot(fc2,g2)

fc2$modularity[3]
#[1] 0.15625
modularity(g2,membership=cutat(fc2,steps=2))
#[1] 0.15625

另一个用户有一个similar problem，但我有当前版本的igraph，所以这应该不是问题。有人可以向我解释为什么存在差异，或者我的代码有什么问题我不明白？

Answer 1

该行

modularity(g,membership=cutat(fc,steps=2),weights=get.adjacency(g,attr="weight"))

错了。如果您想将边的权重传递给modularity()，请使用E(g)$weight：

modularity(g, membership = cutat(fc, steps = 2), weights = E(g)$weight)
# [1] -0.05011095

igraph中加权图的模块性计算

1 个答案: