我想将图表折叠到各自的社区/群集中。让我用以下玩具示例来说明这一点:
set.seed(123)
#toy graph
g <- barabasi.game(10) %>%
as.undirected()
#identify communities
c_g <- fastgreedy.community(g)
有三个社区,如下图所示。
我想减少顶点的折叠,使得结果图中的顶点对应于先前顶点的成员资格。见图。
我是igraph
软件包的新手,我不熟悉处理igraph
个对象的最佳方式。
答案 0 :(得分:10)
您可以尝试contract
:
library(igraph)
set.seed(123)
g <- barabasi.game(10) %>% as.undirected()
c_g <- fastgreedy.community(g)
V(g)$name <- letters[1:vcount(g)]
g2 <- contract(g, membership(c_g), vertex.attr.comb=toString)
par(mfrow=c(1,2))
plot(g, vertex.color=membership(c_g))
plot(simplify(g2), vertex.color=1:vcount(g2))