#Passo 1 - Instalar os pacotes
install.packages("igraph")
install.packages("bipartite")
#Passo 2 - Carregar os pacotes
library(igraph)
library(bipartite)
#Passo 3 - Abrir o diretorio do arquivo
#CLicar na barra superior -> Session -> Set Working Ditectory -> Choose Directory
# ou (ctrl + shift + h)
#Passo 4 - Importar os dados
dados <- read.delim(
"dados.txt", #ARQUIVO
row.names=1) %>% #A PRIMEIRA COLUNA POSSUI TITULO
as.matrix() #FORMATO MATRIX
# Passo 5 - Visualizar os dados
View(dados)
#Passo 6 - visualização da rede
#Visualizar no formato de matriz
visweb(dados)
visweb(dados, type="nested", text="interaction")
visweb(dados, circles=TRUE, boxes=T, labsize=1, circle.max=3, text="no")
#Visualizar no formato bipartido
plotweb(dados)
# Alterando aspectos visuais da rede
plotweb(dados,
text.rot = 90, # Legenda dos vértices rodados em 90°
bor.col.interaction = NA, # Arestas sem bordas
col.interaction = "grey90", # Arestas em cinza claro
col.high = "gold2", # Vértices das colunas em amarelo
col.low = "purple") # Vértices das linhas em roxo
#Alterando aspectos visuais da rede
plotweb(dados,
method = "normal",
bor.col.interaction = NA,
arrow = TRUE,
col.high = "red",
col.low = "green",
text.rot = 90,
labsize = 0.8)
#Explorar outros argumentos
?plotweb
######## utilizar o pacote igraph
#Transformando para o formato do igraph
rede.igr <-graph_from_biadjacency_matrix(dados,
directed = F,
weighted = TRUE)
#Visualizando a rede
plot(rede.igr)
plot(rede.igr, layout = layout_in_circle) #layout em circulo
# Alterando aspectos visuais da rede
plot(rede.igr,
layout = layout_with_fr,
vertex.color = "purple",
vertex.size = 15,
vertex.label.cex = 0.3,
vertex.label.color = "black",
vertex.frame.color = NA,
edge.color = "black",
edge.width = 1)
# Cor dos vértices com base no tipo
V(rede.igr)$color <- ifelse(V(rede.igr)$type, "orange", "green")
plot(rede.igr,
layout = layout_with_fr,
vertex.color = V(rede.igr)$color,
vertex.size = 15,
vertex.label.cex = 0.9,
vertex.label.color = "black",
vertex.frame.color = NA,
edge.color = "grey45",
edge.width = E(rede.igr)$weight/3)
# Alterando cor das colunas
V(rede.igr)$color <- ifelse(V(rede.igr)$type, "blue", "green")
plot(rede.igr,
layout = layout_with_fr,
vertex.color = V(rede.igr)$color,
vertex.size = 15,
vertex.label.cex = 0.9,
vertex.label.color = "black",
vertex.frame.color = NA,
edge.color = "grey45",
edge.width = E(rede.igr)$weight/3)
site para cores: ttps://colorhunt.co
