link1="https://docs.google.com/spreadsheets/d/e/2PACX-1vTw9xGjIlrtgpF0RfzMMdmx6GvA6P2ie-LBhops9966XJyvLuXIrPKdUrAxQM-0JeAtHCSt7b3xWWg2/pub?gid=0&single=true&output=csv"
#leyendo data
dataFase1=read.csv(link1)

#creando grafo
library(igraph)

## 
## Attaching package: 'igraph'

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

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

netFase1=graph.data.frame(dataFase1,directed=TRUE)

# graficando
plot.igraph(netFase1)

• Recalculando indices de red

1. Densidad

edge_density(netFase1)

## [1] 0.2

2. Centralidad

centr_degree(netFase1,mode='out')$res

##  [1] 1 2 2 1 2 2 1 7 0 0

V(netFase1)$name

##  [1] "Lipu"         "LegAbiente"   "ListaVerde"   "Provincia"    "Federcaccia" 
##  [6] "Magistratura" "UnionEuropea" "WWF"          "Region"       "Minam"

V(netFase1)

## + 10/10 vertices, named, from ea318fd:
##  [1] Lipu         LegAbiente   ListaVerde   Provincia    Federcaccia 
##  [6] Magistratura UnionEuropea WWF          Region       Minam

V(netFase1)$sizeOut=centr_degree(netFase1,mode='out')$res

library(ggraph)

## Loading required package: ggplot2

# graph layout: 'ggraph' will decide this time
layout = ggraph(netFase1) + theme_void()

## Using `stress` as default layout

# draw nodes  in a position based on layout
nodes= layout# + geom_node_point(aes(size=sizeOut))
# draw liks to connect nodes
net1 = nodes + geom_edge_link(arrow = arrow(length = unit(4, 'mm')),
                              end_cap = circle(3, 'mm'),
                              color='grey')
# customize some text in node
net1= net1+ geom_node_text(aes(label = name,size=sizeOut),
                                 color="red")
net1 + scale_size(name='degree')