Поскольку вы не предоставляете данные, я буду использовать упрощенную версию вашего графика для иллюстрации.
## Example graph
library(igraph)
g <- graph_from_literal(1-2-3-4-1, 2-5-4,
2-6, 6-7-10-8-6, 6-9-10)
CL = cluster_louvain(g)
plot(CL, g)
Чтобы составить график отдельных сообществ, вы можете использовать induced_subgraph
, чтобы получить подграфы, а затем использовать аналогично любому другому графику.в том числе заговор их.
## Get graphs for each community
C1 = induced_subgraph(g, which(membership(CL) == 1))
C2 = induced_subgraph(g, which(membership(CL) == 2))
plot(C1)
plot(C2)
Примечание: я сложил графики вручную.Они были напечатаны отдельно.