Filtrer des tweets

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

Vivek Vijayaraghavan

Data Science Coach

Aperçu de la leçon

  • Filtrer selon les composantes d'un tweet
    • Extraire les tweets originaux
    • Langue du tweet
    • Tweets populaires selon un minimum de retweets et de favoris
Analyse des données des médias sociaux avec R

Filtrer les tweets originaux

  • Un tweet original est une publication initiale par un utilisateur de Twitter
  • Pas un retweet, une citation ou une réponse
  • Les tweets originaux évitent la redondance du contenu
  • Aide à maintenir l'engagement
Analyse des données des médias sociaux avec R

Filtrer les tweets originaux

  • -filter sert à extraire les tweets originaux
  • -filter:retweets exclut tous les retweets
  • -filter:quote exclut les tweets cités
  • -filter:replies écarte les tweets de type réponse
Analyse des données des médias sociaux avec R

Extraire des tweets sans filtres

  • Extraire des tweets sur « digital marketing » sans filtres
# Extraire 100 tweets sur « digital marketing »
tweets_all <- search_tweets("digital marketing", n = 100)
Analyse des données des médias sociaux avec R

Extraire des tweets sans filtres

  • Vérifier le nombre de valeurs dans reply_to_screen_name, is_quote, is_retweet
# Vérifier le nombre de réponses
library(plyr)
count(tweets_all$reply_to_screen_name)

x               freq
<fct>          <int>
blairaasmith      2            
javiergosende     1            
juanburgos        1            
WhutTheHale       2            
NA               94
Analyse des données des médias sociaux avec R

Extraire des tweets sans filtres

# Vérifier le nombre de citations
count(tweets_all$is_quote)

x        freq
<lgl>    <int>
FALSE     98            
TRUE       2
Analyse des données des médias sociaux avec R

Extraire des tweets sans filtres

# Vérifier le nombre de retweets
count(tweets_all$is_retweet)

x         freq
<lgl>    <int>
FALSE      61            
TRUE       39
Analyse des données des médias sociaux avec R

Exclure retweets, citations et réponses

  • Extraire des tweets sur « digital marketing » en appliquant -filter
# Appliquer « -filter »
tweets_org <- search_tweets("digital marketing 
                            -filter:retweets 
                            -filter:quote 
                            -filter:replies", 
                            n = 100)
Analyse des données des médias sociaux avec R

Exclure retweets, citations et réponses

  • Vérifier que les réponses, citations et retweets sont exclus
# Vérifier le nombre de réponses
library(plyr)
count(tweets_org$reply_to_screen_name)

x         freq
<lgl>    <int>
NA         100
Analyse des données des médias sociaux avec R

Exclure retweets, citations et réponses

# Vérifier le nombre de citations
library(plyr)
count(tweets_org$is_quote)


x         freq
<lgl>    <int>
FALSE     100

# Vérifier le nombre de retweets
library(plyr)
count(tweets_org$is_retweet)

x         freq
<lgl>    <int>
FALSE     100
Analyse des données des médias sociaux avec R

Filtrer par langue

  • lang filtre les tweets selon la langue
  • Repère les tweets d'une langue donnée

Codes de langue Twitter pour quelques langues

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

Filtrer par langue

# Filtrer et extraire les tweets publiés en espagnol
tweets_lang <- search_tweets("brand marketing", lang = "es")
Analyse des données des médias sociaux avec R

Filtrer par langue

View(tweets_lang)

Tweets extraits en espagnol

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

Filtrer par langue

head(tweets_lang$lang)

[1] "es" "es" "es" "es" "es" "es"
Analyse des données des médias sociaux avec R

Filtrer par retweets et favoris

  • min_faves: filtre par nombre minimal de favoris
  • min_retweets: filtre par nombre minimal de retweets
  • Utiliser l'opérateur AND pour appliquer les deux conditions
Analyse des données des médias sociaux avec R

Filtrer par retweets et favoris

# Extraire des tweets avec au moins 100 favoris et retweets 
tweets_pop <- search_tweets("bitcoin min_faves:100 AND
                            min_retweets:100")
Analyse des données des médias sociaux avec R

Filtrer par retweets et favoris

# Créer une trame de données pour vérifier retweets et favoris
counts <- tweets_pop[c("retweet_count", "favorite_count")]

head(counts)

retweet_count    favorite_count
    <int>              <int>
1    162                833
2    141                894    
3    164                1128
4    395                1346    
5    475                2271
6    270                1654
Analyse des données des médias sociaux avec R

Filtrer par retweets et favoris

# Afficher les tweets
head(tweets_pop$text)

text    
<chr>
1    As we continue to build the Bakkt Bitcoin Futures contract, we reached a
2    BREAKING: The United States is considering entering into a "currency pact"
3    REMINDER: The Bitcoin ETF will eventually get approved.\n\nNot a question
4    [New Post] Bitcoin is becoming much more important in Hong Kong and India.
5    Reports are surfacing that some Hong Kong ATMs have run out of cash as
6    Bitcoin is the most transparent currency ever created.
Analyse des données des médias sociaux avec R

Passons à la pratique !

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

Preparing Video For Download...