আর একটি বিকল্প স্ট্যাটনেট প্যাকেজ। এসএনএ-তে সাধারণভাবে ব্যবহৃত সমস্ত ব্যবস্থার জন্য স্ট্যাটনেটের কাজ রয়েছে এবং ইআরজি মডেলগুলিও অনুমান করতে পারে। আপনার যদি কোনও প্রান্ত তালিকায় আপনার ডেটা থাকে তবে ডেটাতে নীচে পড়ুন (ধরে নিলে আপনার ডেটা ফ্রেমটিকে "এজলিস্ট" হিসাবে লেবেল দেওয়া হয়েছে):
net <- as.network(edgelist, matrix.type = "edgelist", directed = TRUE) #if the network is directed, otherwise: directed = FALSE
যদি আপনার ডেটা সংলগ্ন ম্যাট্রিক্সে থাকে তবে আপনি ম্যাট্রিক্স.টাইপ যুক্তিকে "সংলগ্ন" দিয়ে প্রতিস্থাপন করুন:
net <- as.network(edgelist, matrix.type = "adjacency", directed = TRUE)
স্ট্যাটনেট প্যাকেজটিতে কিছু খুব সুন্দর প্লট করার ক্ষমতা রয়েছে। একটি সহজ প্লট করতে সহজভাবে টাইপ করুন:
gplot(net)
নোডগুলির মধ্যবর্তীতা কেন্দ্রিকতা অনুযায়ী স্কেল করতে, কেবল করুন:
bet <- betweenness(net)
gplot(net, vertex.cex = bet)
ডিফল্টরূপে জিপ্লট ফাংশন নোড স্থাপনের জন্য ফ্রচটারম্যান-রেইনগোল্ড অ্যালগরিদম ব্যবহার করে তবে মোড অপশন থেকে এটি নিয়ন্ত্রণ করা যায়, উদাহরণস্বরূপ নোডের স্থান নির্ধারণের জন্য এমডিএস ব্যবহার করতে:
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