इंटरएक्टिव विज़ुअलाइज़ेशन

केस स्टडीज़: R में नेटवर्क विश्लेषण

Edmund Hart

Instructor

कुछ डेटा जनरेट करना

library(igraph)
library(ggnetwork)
library(ggiraph)
library(htmlwidgets)
library(networkD3)

# रैंडम ग्राफ़ बनाएँ
rand_g <- erdos.renyi.game(30, 0.12, "gnp", directed = FALSE)
rand_g <- simplify(rand_g)

V(rand_g)$cent <- betweenness(rand_g)

ggiraph के साथ इंटरएक्टिव प्लॉट

# ggplot2 और ggnetwork से ग्राफ़ प्लॉट करें
g <- ggplot(ggnetwork(rand_g), 
            aes(x = x, y = y, xend = xend, yend = yend)) + 
     geom_edges(color = "black") +
     geom_nodes(aes(size = cent))+ theme_blank() + 
     guides(size = guide_legend(title = "Centrality"))

# ggiraph ऑब्जेक्ट बनाएँ
my_gg <- g + geom_point_interactive(aes(tooltip = round(cent, 2)), 
        size = 2)

# ggiraph ऑब्जेक्ट दिखाएँ
ggiraph(code = print(my_gg))

ggiraph कस्टमाइज़ेशन

my_gg <- g + geom_point_interactive(aes(tooltip = round(cent, 2),
                                        data_id = round(cent, 2)), 
                                    size = 2) 

hover_css = "cursor:pointer;fill:red;stroke:red;r:5pt"

ggiraph(code = print(my_gg),
        hover_css = hover_css,
        tooltip_offx = 10, 
        tooltip_offy = -10)

networkD3 से प्लॉटिंग

# igraph ऑब्जेक्ट कन्वर्ट करें
nd3 <- igraph_to_networkD3(rand_g)

# एक सरल नेटवर्क बनाएँ
simpleNetwork(nd3$links)

और जटिल networkD3

# एट्रिब्यूट जोड़ें: group = कम्युनिटी, और cent = सेंट्रैलिटी.
nd3$nodes$group = V(rand_g)$comm
nd3$nodes$cent = V(rand_g)$cent

# ग्राफ़ प्लॉट करें
forceNetwork(Links = nd3$links, 
             Nodes = nd3$nodes, 
             Source = 'source', 
             Target = 'target', 
             NodeID = 'name', 
             Group = 'group', 
             Nodesize = 'cent', 
             legend = T, 
             fontSize = 20)

अभ्यास करते हैं!

केस स्टडीज़: R में नेटवर्क विश्लेषण