Vizualizace sítí na Twitteru

Analýza dat ze sociálních médií v R

Sowmya Vivek

Data Science Coach

Přehled lekce

Vykreslení sítě s výchozími parametry
Použití atributů formátování pro lepší čitelnost
Využití centrality a atributů sítě k vylepšení grafu

Zobrazení sítě retweetů

# View the retweet network
print.igraph(nw_rtweet)

IGRAPH e7e618c DN-- 21 39 -- 
+ attr: name (v/c), followers (v/c)
+ edges from e7e618c (vertex names):
 [1] w3daily    ->RealFirstBuzz   w3daily    ->RealFirstBuzz  
 [3] w3daily    ->Giasaysthat     w3daily    ->RealFirstBuzz  
 [5] VanesEtim  ->PotionVanity    VanesEtim  ->DAVIDxCGN      
 [7] VanesEtim  ->PotionVanity    VanesEtim  ->Avinash_galaxy 
 [9] VanesEtim  ->PotionVanity    VanesEtim  ->BklynLeague    
[11] RedNileShop->Macaw_Blink     RedNileShop->leuqimcouture  
[13] RedNileShop->StoreDiv        RedNileShop->PotionVanity   
[15] RedNileShop->SCISSORSAPPAREL RedNileShop->Themoon12961958
+ ... omitted several edges

Vytvoření základního síťového grafu

# Create the base network plot
set.seed(1234)  
plot.igraph(nw_rtweet)

Zobrazení základního síťového grafu

Základní síťový graf

Formátování grafu

# Format the network plot with attributes
set.seed(1234)
plot(nw_rtweet, asp = 9/16, 
     vertex.size = 10,
     vertex.color = "lightblue",
     edge.arrow.size = 0.5,
     edge.color = "black",
     vertex.label.cex = 0.9,
     vertex.label.color = "black")

Zobrazení formátovaného grafu

Formátovaný síťový graf

Nastavení velikosti vrcholu podle výstupního stupně

# Create a variable for out-degree
deg_out <- degree(nw_rtweet, mode = c("out"))
deg_out

Hodnoty výstupního stupně

vert_size <- (deg_out * 2) + 10

Přiřazení vert_size k atributu velikosti vrcholu

# Assign vert_size to vertex size attribute and plot network
set.seed(1234)
plot(nw_rtweet, asp = 9/16, 
     vertex.size = vert_size,
     vertex.color = "lightblue", 
     edge.arrow.size = 0.5,
     edge.color = "black",
          vertex.label.cex = 1.2,
     vertex.label.color = "black")

Zobrazení grafu s novými atributy

Graf s atributem velikosti vrcholu

Přidávání atributů sítě

Uživatelé s vysokým počtem retweetů a sledujících přinášejí větší hodnotu
Síťový graf uživatelů s vysokým počtem retweetů a sledujících
Přidání počtu sledujících jako atributu sítě

Počet sledujících uživatelů sítě

# Import the followers count data frame
followers <- readRDS("follower_count.rds")

Zobrazení datového rámce sledujících

# View the follower count
head(followers)

screen_name    followers_count
<fct>             <dbl>
adyo312            58        
AllesUndNix_       18        
Avinash_galaxy     1536        
BklynLeague        40        
DAVIDxCGN          267        
Giasaysthat        9139

Počet sledujících uživatelů sítě

# Categorize high and low follower count
followers$follow <- ifelse(followers$followers_count > 500, "1", "0")

Zobrazení datového rámce sledujících

# View the data frame with the new column
head(followers)

screen_name    followers_count    follow
<fct>              <dbl>          <chr>
adyo312              58              0    
AllesUndNix_         18              0    
Avinash_galaxy     1536              1    
BklynLeague          40              0    
DAVIDxCGN           267              0    
Giasaysthat        9139              1

Přiřazení atributů sítě

# Assign external network attributes to retweet network
V(nw_rtweet)$followers <- followers$follow

Zobrazení atributů vrcholů

# View the vertex attributes
vertex_attr(nw_rtweet)

Atributy vrcholů

Změna barev vrcholů

# Set the vertex colors for the plot
sub_color <- c("lightgreen", "tomato")
set.seed(1234)
plot(nw_rtweet, asp = 9/16,
     vertex.size = vert_size,
     edge.arrow.size = 0.5,
     vertex.label.cex = 1.3,
     vertex.color = sub_color[as.factor(vertex_attr(nw_rtweet, "followers"))],
     vertex.label.color = "black",
     vertex.frame.color = "grey")

Zobrazení grafu formátovaného dle atributů vrcholů

Graf podle atributů vrcholů

Lass uns üben!

Analýza dat ze sociálních médií v R