Twitter-netwerken visualiseren

Socialemediagegevens analyseren in R

Sowmya Vivek

Data Science Coach

Lesoverzicht

Plot een netwerk met standaardinstellingen
Pas opmaak toe om de leesbaarheid te verbeteren
Gebruik centraliteit en eigenschappen om de plot te versterken

Bekijk een retweet-netwerk

# 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

Maak de basis-netwerkplot

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

Bekijk de basis-netwerkplot

Basis-netwerkplot

Formatteer de plot

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

Bekijk de opgemaakte plot

Opgemaakte netwerkplot

Stel knoopgrootte in op basis van out-degree

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

Out-degree-waarden

vert_size <- (deg_out * 2) + 10

Koppel vert_size aan de knoopgrootte-eigenschap

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

Bekijk plot met nieuwe eigenschappen

Plot met vert_size-eigenschap

Netwerkeigenschappen toevoegen

Gebruikers die veel retweeten en veel volgers hebben, voegen meer waarde toe
Netwerkplot van gebruikers die meer retweeten en veel volgers hebben
Voeg volgeraantal toe als netwerkeigenschap

Aantal volgers van netwerkgebruikers

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

Bekijk de followers-dataframe

# 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

Aantal volgers van netwerkgebruikers

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

Bekijk de followers-dataframe

# 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

Netwerkeigenschappen toewijzen

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

Bekijk knoopeigenschappen

# View the vertex attributes
vertex_attr(nw_rtweet)

Knoop-eigenschappen

Knoopkleuren wijzigen

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

Bekijk plot met knoopeigenschappen-opmaak

Plot op basis van knoopeigenschappen

Laten we oefenen!

Socialemediagegevens analyseren in R