Tarea 3 - Jose Navarro

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

## Warning: package 'igraph' was built under R version 4.3.3

## 
## Attaching package: 'igraph'

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

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

MG=read_graph("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(MG)

## IGRAPH e75e1fd U-W- 37 135 -- 
## + attr: id (v/n), label (v/c), multi (v/n), color (v/c), weight (e/n)

plot(MG, vertex.color = V(MG)$color, vertex.label = V(MG)$label,edge.curved=.1, main = "Ejercicio, Red de las Élites")