Pilihan lain adalah paket statnet. Statnet memiliki fungsi untuk semua tindakan yang biasa digunakan dalam SNA, dan juga dapat memperkirakan model ERG. Jika Anda memiliki data di daftar tepi, baca data sebagai berikut (dengan asumsi frame data Anda diberi label "edgelist"):
net <- as.network(edgelist, matrix.type = "edgelist", directed = TRUE) #if the network is directed, otherwise: directed = FALSE
Jika data Anda dalam matriks adjacency Anda mengganti argumen matrix.type dengan "adjacency":
net <- as.network(edgelist, matrix.type = "adjacency", directed = TRUE)
Paket statnet memiliki beberapa kemampuan merencanakan yang sangat bagus. Untuk melakukan plot sederhana cukup ketik:
gplot(net)
Untuk skala node berdasarkan sentralitas antar mereka, cukup lakukan:
bet <- betweenness(net)
gplot(net, vertex.cex = bet)
Secara default fungsi gplot menggunakan algoritma Fruchterman-Reingold untuk menempatkan node, namun ini dapat dikontrol dari opsi mode, misalnya untuk menggunakan MDS untuk penempatan tipe node:
gplot(net, vertex.cex, mode = "mds")
atau untuk menggunakan tata letak lingkaran:
gplot(net, vertex.cex, mode = "circle")
Ada banyak lagi kemungkinan, dan panduan ini mencakup sebagian besar opsi dasar. Untuk contoh yang lengkap:
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