Visualiser des réseaux Twitter

Analyse des données des médias sociaux avec R

Sowmya Vivek

Data Science Coach

Aperçu de la leçon

Tracer un réseau avec les paramètres par défaut
Appliquer des attributs pour améliorer la lisibilité
Utiliser la centralité et des attributs pour enrichir le tracé

Afficher un réseau de retweets

# 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

Créer le tracé de base du réseau

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

Afficher le tracé de base

Tracé de base du réseau

Mettre en forme le tracé

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

Afficher le tracé mis en forme

Tracé du réseau mis en forme

Définir la taille des sommets selon le degré sortant

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

Valeurs du degré sortant

vert_size <- (deg_out * 2) + 10

Affecter vert_size à l'attribut de taille des sommets

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

Afficher le tracé avec les nouveaux attributs

Tracé avec l'attribut vert_size

Ajouter des attributs de réseau

Les utilisateurs qui retweetent le plus et ont beaucoup d'abonnés apportent plus de valeur
Tracé du réseau des utilisateurs qui retweetent davantage et ont beaucoup d'abonnés
Ajouter le nombre d'abonnés comme attribut du réseau

Nombre d'abonnés des utilisateurs du réseau

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

Afficher la trame followers

# 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

Nombre d'abonnés des utilisateurs du réseau

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

Afficher la trame followers

# 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

Affecter des attributs au réseau

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

Afficher les attributs des sommets

# View the vertex attributes
vertex_attr(nw_rtweet)

Attributs des sommets

Modifier les couleurs des sommets

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

Afficher le tracé formaté par attributs de sommet

Tracé selon les attributs des sommets

Passons à la pratique !

Analyse des données des médias sociaux avec R