计算子图集群扰乱图

问题描述

从网络开始，我想：

1. 简化网络（即消除自环并将其减少到最大子图，其中 节点至少有度数);
2. 在第 1 点定义的子图上实施聚类/社区检测算法（例如“快速贪婪”方法）；
3. 绘制原始网络的图形，并将点 2 中检测到的集群/社区叠加到其上。

第 3 点（按代码）生成的图形不令人满意： 我希望图 2 建立在图 1 上（将顶点保持在适当的位置）和 我希望能够根据社区分配颜色

我该怎么做？

以下是 Zachary 空手道俱乐部网络的玩具示例：

library("igraph")
library("igraphdata")

data(karate)
summary(karate)

plot(karate) ##graph 0

karate_1 <- igraph::simplify(karate,remove.loops = TRUE)
karate_1 <- induced.subgraph(karate_1,vids=which(graph.coreness(karate_1) > 2))

cfg <- cluster_fast_greedy(karate_1)

plot(cfg,karate_1) ##graph 1
plot(cfg,karate,edge.color = "black") ##graph 2

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）