network_examples.R

library(sand)
library(igraph)
library(plot.matrix)

plot(lazega, vertex.size=6, vertex.label=NA,
     layout=layout_in_circle)

plot(as.matrix(get.adjacency(lazega)), col = c('white', 'black'),
     main = "Matriz de Adjacências")

g1 = erdos.renyi.game(10, 0.2)
g2 = erdos.renyi.game(10, 0.7)

plot(g1, vertex.size=10, vertex.label=NA, 
     main = paste("Densidade:", round(edge_density(g1), 2)))
plot(g2, vertex.size=10, vertex.label=NA,
     main = paste("Densidade:", round(edge_density(g2), 2)))


plot(g1, vertex.size=10, vertex.label=NA, 
     main = paste("Grau médio:", round(mean(degree(g1)), 2)))
plot(g2, vertex.size=10, vertex.label=NA,
     main = paste("Grau médio:", round(mean(degree(g2)), 2)))


plot(g1, vertex.size=10, vertex.label=NA, 
     main = paste("Diâmetro:", round(mean(diameter(g1)), 2)))
plot(g2, vertex.size=10, vertex.label=NA,
     main = paste("Diâmetro:", round(mean(diameter(g2)), 2)))



g3 = erdos.renyi.game(50, 0.08)
plot(g3, vertex.size=degree(g3)^2/4, vertex.label=NA,
     main = "Rede aleatória")
degree(g3)


library(concorR)
pc = delete_vertices(lazega, V(lazega)[degree(lazega) == 0])
m = as_adjacency_matrix(pc, sparse = F)
lazbl = concor_make_igraph(list(m), nsplit=2)

plot(lazbl[[1]], vertex.label=NA, vertex.size=8, 
     vertex.color=V(lazbl[[1]])$csplit2,
     edge.arrow.size=.3)

red  = make_reduced(list(m), nsplit = 2)
redg = make_reduced_igraph(red$reduced_mat[[1]])
plot_reduced(redg)

bm = make_blk(list(m), nsplit = 2)[[1]]
plot_blk(bm, labels = T)