redes con nodos fijos
Algunas veces es deseable graficar una secuencia de redes sociales compuestas por los mismos actores con lazos que representan diferentes relaciones. Por ejemplo, 50 actores que poseen lazos múltiples, esto es, relaciones con diferente contenido, familia y amistad, amistad y trabajo, etc. En el código de abajo se crean dos redes aleatorias de 50 nodos: una Erdos-Renyi (o totalmente aleatoria) y otra Barabási–Albert dónde hay una vinculación preferencial, los nodos más populares (con más lazos) tienen una mayor probabilidad de atraer más conexiones, este modelo, no obstante de ser aleatorio, es más parecido a la estructura reticular de muchas redes sociales del mundo real.
01 library(igraph) 02 03 g1 <- barabasi.game(50) 04 05 coord <- layout.kamada.kawai(g1) 06 07 plot(g1, vertex.label= NA, 08 edge.arrow.size=0.02, 09 vertex.size = 4, 10 layout=coord, 11 xlab = "Red de mundo peque\u{F1}o") 12 13 g2 <- erdos.renyi.game(50, 0.1) 14 15 plot(g2, vertex.label= NA, 16 edge.arrow.size=0.02, 17 vertex.size = 4, 18 layout=coord, 19 xlab = "Red aleatoria")
