Redes

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

elites=read.graph("EliteNed.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 (ñ).

summary(elites)

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

plot(elites, edge.arrow.size=.4,vertex.label=V(elites)$label,edge.curved=.1, main= "Redes empresariales")