如何为walktrap社区中的每个分区提取模块性分数？

我是社区检测的新手，为了让事情变得更难，我也是R的初学者-请在回答时记住这一点。 如果有人能告诉我如何做到这一点，我很高兴将我的数据添加到这篇文章中

第一个问题 我创建了一个有向图，其中包含2198个节点和1380771条带权重的边（权重包含在MyLink中）：

我可以绘制一个树状图，上面有10个社区：

dendrogram <- dendPlot(com, mode="hclust") 

树状图
com <- walktrap.community(net, weights = E(net)$weight, steps = 4, merges =
                        TRUE, modularity = TRUE)

length(com) #  number of communities: 10 
modularity(com) # how modular the graph partitioning is

dendrogram <- dendPlot(com, mode="hclust") 

com_plot <- plot(com, net)