Tarea 3.grafos-ASIES

#install.packages("igraph")

rm(list = ls())
library(igraph)

## 
## Attaching package: 'igraph'

## The following objects are masked from 'package:stats':
## 
##     decompose, spectrum

## The following object is masked from 'package:base':
## 
##     union

Grafo=read.graph("EliteNet.gml", format = "gml")

## Warning: `read.graph()` was deprecated in igraph 2.0.0.
## ℹ Please use `read_graph()` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

## Warning in read.graph.gml(file, ...): At vendor/cigraph/src/io/gml.c:149 : One
## or more unknown entities will be returned verbatim (ñ).

plot(Grafo,
     layout=layout_with_fr, # algoritmo de layout
     vertex.label.cex=1,    # Tamaño de las etiquetas 
     edge.arrow.size=.4,    # Tamaño de las flechas 
     edge.curved=.1         # Curvatura de las líneas 
)