# Ejemplo: 
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
dG=read_graph("dG.gml", format = "gml")
summary(dG)
## IGRAPH 2d76231 D-W- 4 5 -- 
## + attr: id (v/n), label (v/c), sex (v/c), color (v/c), weight (e/n),
## | color (e/c), label (e/c)
plot(dG, edge.arrow.size=.4,vertex.label=V(dG)$label,edge.curved=.1)

# Continuación del punto 1.4 - Ejercicio Élites: 
dG=read_graph("C:/Users/LENOVO/OneDrive/Documentos/ASIE/graphdata/EliteNet.gml", format = "gml")
## Warning in read.graph.gml(file, ...): At vendor/cigraph/src/io/gml.c:149 : One
## or more unknown entities will be returned verbatim (ñ).
summary(dG)
## IGRAPH 2d943de U-W- 37 135 -- 
## + attr: id (v/n), label (v/c), multi (v/n), color (v/c), weight (e/n)
plot(dG, edge.arrow.size=.4,vertex.label=V(dG)$label,edge.curved=.1)