Analyse des données des médias sociaux avec R
Sowmya Vivek
Data Science Coach
screen_name contient l'identifiant Twitter d'un utilisateur
rtweet
# Extraire des tweets sur "#brexit" avec search_tweets()
tweets_df <- search_tweets("#brexit")
# Afficher les noms de colonnes
names(tweets_df)

screen_name pour comprendre les intérêts des utilisateursfollowers_count pour comparer l'influence socialeretweet_count et text pour repérer les tweets populairesscreen_name correspond à l'identifiant Twitter# Extraire des tweets sur "#Arsenal" avec search_tweets()
twts_arsnl <- search_tweets("#Arsenal", n = 18000)
# Dresser un tableau des utilisateurs et du nombre de tweets sur le sujet
sc_name <- table(twts_arsnl$screen_name)
head(sc_name)
_____today_____ ___JJ23 ___SAbI__ __ambell __Amzo__ __bobbysingh
1 2 3 1 1 1
# Trier le tableau par nombre de tweets décroissant
sc_name_sort <- sort(sc_name, decreasing = TRUE)
# Afficher les 6 principaux utilisateurs et fréquences de tweets
head(sc_name_sort)
_whatthesport footy90com Official_ATG1 TheShortFuse RubellM ArsenalZone_Ind
176 90 88 53 48 43
# Extraire des données d'utilisateurs avec lookup_users()
tvseries <- lookup_users("GameOfThrones", "fleabag", "BreakingBad")
# Créer un dataframe avec les colonnes screen_name et followers_count
user_df <- tvseries[,c("screen_name","followers_count")]
# Afficher le nombre d'abonnés pour comparaison
user_df
screen_name followers_count
<chr> <int>
GameOfThrones 8597188
fleabag 58727
BreakingBad 1240349
retweet_count stocke le nombre de retweets# Créer un dataframe avec le texte du tweet et le nombre de retweets
rtwt <- tweets_arsenal[,c("text", "retweet_count")]
# Trier le dataframe par nombre de retweets décroissant
library(dplyr)
rtwt_sort <- arrange(rtwt, desc(retweet_count))
# Exclure les lignes avec texte de tweet en double
rtwt_unique <- unique(rtwt_sort, by = "text")
# Afficher les 6 publications uniques les plus retweetées
head(rtwt_unique)
retweet_count text
<int> <chr>
5606 Once a Gunner, Always a Gunner. We are proud of you @alexanderiwob
3764 Emirates on Fire 🔥🔥🔥🔥 Never give up Gunners💪🏽💪🏽💪🏽 #Arsenal #CO
2798 That mood tonight ⚡️⚡️⚡️ 3️⃣ POINTS 🔴⚪️ #Arsenal #Gunners #COYG h
2741 #Arsenal fan: "I reckon we'll win the League this season." @Robbie
1687 Auba 😭😭😍😍 This is what I call happiness #aubameyang #arsenal
1166 When sky sports introduced the new Monday night football! The Sha
Analyse des données des médias sociaux avec R