Vizualizarea rețelelor Twitter

Analiza datelor din social media în R

Sowmya Vivek

Data Science Coach

Prezentarea lecției

Reprezentarea unei rețele cu parametri impliciți
Aplicarea atributelor de formatare pentru lizibilitate
Utilizarea centralității și atributelor rețelei pentru îmbunătățirea graficului

Vizualizarea unei rețele de retweet-uri

# 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

Crearea graficului de bază al rețelei

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

Vizualizarea graficului de bază al rețelei

Graficul de bază al rețelei

Formatarea graficului

# 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")

Vizualizarea graficului formatat

Grafic de rețea formatat

Dimensiunea nodului în funcție de out-degree

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

Valorile out-degree

vert_size <- (deg_out * 2) + 10

Atribuirea vert_size la atributul dimensiunii nodului

# 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")

Graficul cu noile atribute

Grafic cu atribut de dimensiune a nodului

Adăugarea atributelor de rețea

Utilizatorii care retwittează cel mai mult și au mulți urmăritori adaugă mai multă valoare
Graficul rețelei utilizatorilor cu mai multe retweet-uri și urmăritori
Adăugarea numărului de urmăritori ca atribut de rețea

Numărul de urmăritori ai utilizatorilor din rețea

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

Vizualizarea dataframe-ului cu urmăritori

# 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

Numărul de urmăritori ai utilizatorilor din rețea

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

Vizualizarea dataframe-ului cu urmăritori

# 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

Atribuirea atributelor de rețea

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

Vizualizarea atributelor nodurilor

# View the vertex attributes
vertex_attr(nw_rtweet)

Atributele nodurilor

Modificarea culorilor nodurilor

# 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")

Graficul formatat cu atributele nodurilor

Grafic bazat pe atributele nodurilor

Să exersăm!

Analiza datelor din social media în R