Socialinio tinklo duomenų vizualizavimas

Įkeliamas duomenų failas GOT-book1.csv ir sukuriamas tinklas.

library(igraph)
network_file <- "/Users/vilmakrasauskaite/Desktop/3ND Vizualizavimas/GOT-book1.csv"
network_data <- read.csv(network_file)
network_graph <- graph.data.frame(network_data, directed = FALSE)

Vizualizacijos

Šio duomenų rinkinio socialiniam tinklui vizualizuoti tinka medžio tipo struktūros vizualizacija. Mazgų pavadinimai yra pašalinti dėl geresnės tinklo struktūros išvaizdos.

plot(network_graph, layout=layout_as_tree(network_graph), vertex.size=10, vertex.label=NA)

Tyrinėjant to paties socialinio tinklo vizualizacijas įvairiais išdėstymais (layout), dar būtų galima išskirti vizualizaciją nukreiptuoju išdėstymu (force directed layout). Šis metodas išdėsto grafo mazgus taip, kad visos briaunos būtų daugmaž vienodo ilgio ir būtų kuo mažiau susikertančių briaunų.

plot(network_graph, layout=layout_with_dh(network_graph), vertex.size=10, vertex.label=NA)

Dinaminės vizualizacijos

Duomenų rinkinys, kuris leistų patyrinėti dinamines vizualizacijas yra parinktas kitas. Duomenų failas eurovision.csv turi laiko duomenų stulpelį, kuriame įrašyti Eurovizijos dainų konkurso metai. Socialiniam tinklui sudaryti parinkau du stulpelius: source - “host_country”, o target - “artist_country”. Animacijai parinkau “year” stulpelį.

Čia programinis kodas:

library(gganimate) 
## Loading required package: ggplot2
library(ggraph) 
library(igraph) 
library(ggplot2)

network_file2 <- "/Users/vilmakrasauskaite/Desktop/3ND Vizualizavimas/eurovision.csv" 
network_data2 <- read.csv(network_file2) 

# sukuriamas tinklas iš nurodytų stulpelių
network_graph2 <- graph.data.frame(network_data2[,c("host_country","artist_country")], directed = FALSE)

# nubraižoma statinė tinklo vizualizacija, kuri atvaizduoja duomenis labai nekokybiškai
plot(network_graph2, layout=layout_in_circle(network_graph2), vertex.size=10, vertex.label=NA)

# dinaminė vizualizacija:
p <- ggraph(network_graph2, layout = "circle") +  
  geom_edge_link() +  
  geom_node_point() +
  geom_node_text(aes(label = name), repel = FALSE, size = 3)

# sukuriama ir rodoma animacija
animation <- p + transition_time(as.numeric(network_data2$year)) + ease_aes('linear') + labs(title = "Year: {frame_time}")

animate(animation, duration = 100, fps = 1 )

Programiniame kode esantis statinės tinklo vizualizacijos paveikslas duomenims vaizduoti netinka.

Šiam socialiniam tinklui sukurta dinaminė vizualizacija su tuo pačiu išdėstymu (layout) tinklo ryšius atvaizduoja labai gerai.

Dinaminėje vizualizacijoje aiškiai matosi ryšiai tarp šalies, kuri organizuoja konkursą ir dalyvių šalių bėgant metams. Ryšiai rodo, kad 1956 metais į konkursą atvyko nedidelis kiekis šalių, o laikui bėgant šalių kiekis auga.