Thu gọn đồ thị theo cụm trong igraph

Question

Tôi muốn thu gọn biểu đồ vào các cộng đồng/cụm tương ứng của nó. Hãy để tôi minh họa điều này với ví dụ về đồ chơi sau:

set.seed(123) 

#toy graph 
g <- barabasi.game(10) %>% 
    as.undirected() 

#identify communities 
c_g <- fastgreedy.community(g) 

Có ba cộng đồng, như được thấy trong biểu đồ sau.

tôi muốn giảm bớt sự sụp đổ các đỉnh sao cho đỉnh trong đồ thị kết quả tương ứng với các thành viên của các đỉnh trước. Xem biểu đồ.

Tôi mới để gói igraph và tôi không quen với cách tốt nhất để đối phó với igraph đối tượng.

Answer 1

Bạn có thể thử 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))