Вы не предоставляете никаких данных, поэтому я проиллюстрирую это на произвольном примере.
library(igraph)
set.seed(1234)
g = erdos.renyi.game(20,0.1)
plot(g)
CL = cluster_louvain(g)
plot(g, vertex.color=CL$membership)
Теперь вы можете получить количество вершин в каждом кластере и количество ребер, которые их соединяют.
## number of vertices per cluster
table(CL$membership)
1 2 3 4 5 6 7
1 1 3 2 3 5 5
## number of edges within each cluster
NumClust = max(CL$membership)
sapply(1:NumClust, function(i)
ecount(induced_subgraph(g, which(CL$membership==i))))
[1] 0 0 2 1 2 4 5