Otra opción es el paquete statnet. Statnet tiene funciones para todas las medidas de uso común en SCN, y también puede estimar modelos ERG. Si tiene sus datos en una lista de bordes, léalos de la siguiente manera (suponiendo que su marco de datos está etiquetado como "lista de bordes"):
net <- as.network(edgelist, matrix.type = "edgelist", directed = TRUE) #if the network is directed, otherwise: directed = FALSE
Si sus datos están en una matriz de adyacencia, sustituya el argumento matrix.type por "adjacency":
net <- as.network(edgelist, matrix.type = "adjacency", directed = TRUE)
El paquete statnet tiene unas capacidades de trazado muy buenas. Para realizar un trazado sencillo, simplemente escriba:
gplot(net)
Para escalar los nodos en función de su centralidad de interrelación, basta con hacer:
bet <- betweenness(net)
gplot(net, vertex.cex = bet)
Por defecto la función gplot utiliza el algoritmo Fruchterman-Reingold para la colocación de los nodos, sin embargo esto puede ser controlado desde la opción mode, por ejemplo para utilizar MDS para la colocación de nodos tipo:
gplot(net, vertex.cex, mode = "mds")
o utilizar un diseño circular:
gplot(net, vertex.cex, mode = "circle")
Hay muchas más posibilidades, y esta guía cubre la mayoría de las opciones básicas. Para un ejemplo autónomo:
net <- rgraph(20) #generate a random network with 20 nodes
bet <- betweenness(net) #calculate betweenness scores
gplot(net) #a simple plot
gplot(net, vertex.cex = bet/3) #nodes scaled according to their betweenness centrality, the measure is divided by 3 so the nodes don't become to big.
gplot(net, vertex.cex = bet/3, mode = "circle") #with a circle layout
gplot(net, vertex.cex = bet/3, mode = "circle", label = 1:20) #with node labels