Faça uma análise abrangente da rede "USAirports" do pacote igraphdata, que contém dados de voos realizados em 2010 nos EUA:
a) Histograma da distribuição dos graus dos vértices
b) Comunidades (Louvain)
Métricas
Ordem
745
Tamanho
4653
Diâmetro
8
Coeficiente Clusterização
0.3385
Distância Média
3.4472
Modularidade
0.4422
Comunidades
16
Assortatividade
-0.0666
Prompt do R (para análises avançadas, se desejado)
install.packages("igraph")
library(igraphdata)
data(package = "igraphdata")
data("USAirports")
g <- as.undirected(USAirports, mode="collapse")
g1 <- igraph::subgraph(g, subcomponent(g, 1, mode = c("all", "out", "in")))
hist(degree(g1),500)
gorder(g1)
[1] 745
gsize(g1)
[1] 4653
diameter(g1)
[1] 8
transitivity(g1)
[1] 0.3384624
mean.distance(g1)
[1] 3.447218
cluvain<-cluster_louvain(g1)
coords = layout_with_fr(g1)
plot(cluvain, g1, vertex.label=NA, vertex.size=3, layout=coords)
modularity(cluvain)
[1] 0.4422395
length(cluvain)
[1] 16
assortativity_degree(g1)
[1] -0.066631048