# Library
library(igraph)
library(RColorBrewer)
# Create data
set.seed(5)
data <- matrix(sample(0:4, 81, replace=TRUE, prob=c(0.8,0.4,0.5,0.7,0.6)), nc=9)
network <- graph_from_adjacency_matrix(data , mode='directed', diag=F )%>%set_vertex_attr("color", value = brewer.pal(9,"Set3"))
# Default network
par(mar=c(0,0,0,0))
plot(network)
network <- graph_from_adjacency_matrix(data