测量不同子图的社区权重

Question

我在邻接矩阵中检测到社区。平行地，我使用相同矩阵的顶点创建隶属​​矩阵。如何衡量隶属矩阵每列中社区的权重？

采用以下邻接矩阵：

    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, ]))适用于所有社区。