एक अन्य विकल्प स्टेटनेट पैकेज है। स्टेटनेट में एसएनए के सभी आमतौर पर उपयोग किए जाने वाले उपायों के लिए फ़ंक्शन हैं, और ईआरजी मॉडल का भी अनुमान लगा सकते हैं। यदि आपके पास एक किनारे की सूची में अपना डेटा है, तो डेटा में निम्नानुसार पढ़ें (अपने डेटा फ्रेम को "एडगेलिस्ट" लेबल किया गया है):
net <- as.network(edgelist, matrix.type = "edgelist", directed = TRUE) #if the network is directed, otherwise: directed = FALSE
यदि आपका डेटा एक आसन्न मैट्रिक्स में है, तो आप "adjacency" के साथ मैट्रिक्स टाइप करें।
net <- as.network(edgelist, matrix.type = "adjacency", directed = TRUE)
स्टेटनेट पैकेज में कुछ बहुत अच्छी प्लॉटिंग क्षमताएं हैं। एक साधारण प्लॉट करने के लिए बस टाइप करें:
gplot(net)
उनके बीच की केंद्रीयता के अनुसार नोड्स को स्केल करने के लिए, बस करें:
bet <- betweenness(net)
gplot(net, vertex.cex = bet)
डिफ़ॉल्ट रूप से gplot फ़ंक्शन नोड्स रखने के लिए Fruchterman-Reingold एल्गोरिथ्म का उपयोग करता है, हालांकि इसे मोड विकल्प से नियंत्रित किया जा सकता है, उदाहरण के लिए नोड प्रकार के प्लेसमेंट के लिए 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