Repasemos el ejercicio planteado en el libro Decisiones Publicas de Subirats y Dente, en el apéndice del Capítulo 9. En ese ejercicio el plantea:
Recuerde que a los autores les interesa trs características de las redes de actores:
Complejidad: Calculada de la tabla de interacción. Indica que tanto los diversos tipos de actores están distribuidos en diversas dimensiones de interés. Esto sirve para reflexionar: poca complejidad podría indicar que hemos convocado mal, excesiva complejidad que hemos identificado de más.
Densidad: Calculada de la red propuesta. Indica qué tan conectados están los actores. La poca densidad dificulta el diálogo entre los actores, una alta densidad podría producir mucho ruido y menos información. Los autores consideran que la a mayor densidad una red de alta complejidad con interés en colaborar puede lograr sus objetivos, pero si tiene intereses conflictivos no los lograría.
Centralidad: Calculada de la red propuesta. Indica qué tanto algun nodo tendría más “poder”. La densidad máxima disminuye el poder de un actor particular.
Datos:
link1="https://docs.google.com/spreadsheets/d/e/2PACX-1vQKpd9WjJp1BNaoSI8rSXidbOSBg_QLzya6hBpL9QaShGktm-AEfbOazyhTBZxD6iZmH6e9cq50i3pj/pub?gid=0&single=true&output=csv"
#leyendo data
dataFase1=read.csv(link1)
#creando grafo
library(igraph)
netFase1=graph.data.frame(dataFase1,directed=TRUE)
# graficando
plot.igraph(netFase1)
edge_density(netFase1)
## [1] 0.1888889
centr_degree(netFase1)$centralization
## [1] 0.2839506
Datos:
link2="https://docs.google.com/spreadsheets/d/e/2PACX-1vQKpd9WjJp1BNaoSI8rSXidbOSBg_QLzya6hBpL9QaShGktm-AEfbOazyhTBZxD6iZmH6e9cq50i3pj/pub?gid=773867725&single=true&output=csv"
#leyendo data
dataFase2=read.csv(link2)
#creando grafo
library(igraph)
netFase2=graph.data.frame(dataFase2,directed=TRUE)
# graficando
plot.igraph(netFase2)
edge_density(netFase2)
## [1] 0.2361111
centr_degree(netFase2)$centralization
## [1] 0.0859375
Datos:
link3="https://docs.google.com/spreadsheets/d/e/2PACX-1vQKpd9WjJp1BNaoSI8rSXidbOSBg_QLzya6hBpL9QaShGktm-AEfbOazyhTBZxD6iZmH6e9cq50i3pj/pub?gid=1305292430&single=true&output=csv"
#leyendo data
dataFase3=read.csv(link3)
#creando grafo
library(igraph)
netFase3=graph.data.frame(dataFase3,directed=TRUE)
# graficando
plot.igraph(netFase3)
edge_density(netFase3)
## [1] 0.5
centr_degree(netFase3)$centralization
## [1] 0.625