Інший варіант - пакет statnet. Statnet має функції для всіх часто використовуваних заходів у СНР, а також може оцінювати моделі ERG. Якщо ви маєте свої дані в краєвому списку, прочитайте дані таким чином (якщо припустимо, що ваш кадр даних позначений "Едгеліст"):
net <- as.network(edgelist, matrix.type = "edgelist", directed = TRUE) #if the network is directed, otherwise: directed = FALSE
Якщо ваші дані знаходяться в матриці суміжності, ви замінюєте аргумент matrix.type на "суміжність":
net <- as.network(edgelist, matrix.type = "adjacency", directed = TRUE)
Пакет statnet має дуже приємні можливості побудови графіків. Щоб зробити простий сюжет, просто введіть:
gplot(net)
Щоб масштабувати вузли відповідно до центральності між ними, просто виконайте:
bet <- betweenness(net)
gplot(net, vertex.cex = bet)
За замовчуванням функція gplot використовує алгоритм Fruchterman-Reingold для розміщення вузлів, однак цим можна керувати за допомогою параметра mode, наприклад, використовувати MDS для розміщення типів вузлів:
gplot(net, vertex.cex, mode = "mds")
або використовувати макет кола:
gplot(net, vertex.cex, mode = "circle")
Існує набагато більше можливостей, і цей посібник охоплює більшість основних варіантів. Для прикладу, що міститься в собі:
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