衡量不同子图的社区权重

Question

我在邻接矩阵中检测到社区。 Parallely，我使​​用同一矩阵的顶点创建一个从属矩阵。如何衡量从属矩阵的每一列中社区的权重？

取如下邻接矩阵：

    A   B   C   D   E   F   G
A   0   1   0   1   0   1   0
B   1   0   1   1   0   1   0
C   0   1   0   0   0   0   0
D   1   1   0   0   1   1   0
E   0   0   0   1   0   1   0
F   1   1   0   1   1   0   1
G   0   0   0   0   0   1   0

我确定社区：

com <- edge.betweenness.community(g)
V(g)$memb <- com$membership

现在采用以下隶属矩阵：

    P   R   Q
A   1   1   0
B   1   0   1
C   1   1   0
D   0   1   0
E   1   0   1
F   0   0   1
G   1   1   0

如何计算隶属矩阵中隶属于“P”的社区[[1]]对应的顶点数？

Answer 1

您可以使用sum(m[com[[1]],"P"]>0)，因为m 包含您的从属关系矩阵。或 lapply(com, function(x) colSums(m[x, ])) 用于所有社区。