Eine weitere Option ist das statnet-Paket. Statnet verfügt über Funktionen für alle in SNA häufig verwendeten Kennzahlen und kann auch ERG-Modelle schätzen. Wenn Sie Ihre Daten in einer Kantenliste haben, lesen Sie die Daten wie folgt ein (vorausgesetzt, Ihr Datenrahmen trägt die Bezeichnung "Kantenliste"):
net <- as.network(edgelist, matrix.type = "edgelist", directed = TRUE) #if the network is directed, otherwise: directed = FALSE
Befinden sich Ihre Daten in einer Adjazenzmatrix, ersetzen Sie das Argument matrix.type durch "Adjazenz":
net <- as.network(edgelist, matrix.type = "adjacency", directed = TRUE)
Das statnet-Paket verfügt über einige sehr schöne Plotfunktionen. Um ein einfaches Diagramm zu erstellen, geben Sie einfach Folgendes ein:
gplot(net)
Gehen Sie wie folgt vor, um die Knoten entsprechend ihrer Interferenzzentralität zu skalieren:
bet <- betweenness(net)
gplot(net, vertex.cex = bet)
Standardmäßig verwendet die gplot-Funktion den Fruchterman-Reingold-Algorithmus zum Platzieren der Knoten. Dies kann jedoch über die Option mode gesteuert werden, um beispielsweise MDS für die Platzierung des Knotentyps zu verwenden:
gplot(net, vertex.cex, mode = "mds")
oder um ein Kreislayout zu verwenden:
gplot(net, vertex.cex, mode = "circle")
Es gibt viele weitere Möglichkeiten, und dieser Leitfaden behandelt die meisten grundlegenden Optionen. Für ein eigenständiges Beispiel:
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