Složky dat z Twitteru

Analýza dat ze sociálních médií v R

Sowmya Vivek

Data Science Coach

Přehled lekce

  • Úvod do Twitter JSON
  • Extrakce složek metadat z JSON
  • Využití složek k získání přehledů
Analýza dat ze sociálních médií v R

Twitter JSON

  • Tweet může mít více než 150 složek metadat
  • Tweety a jejich složky jsou vráceny ve formátu JavaScript Object Notation
Analýza dat ze sociálních médií v R

Atributy a hodnoty JSON

  • Atributy a hodnoty popisující tweety a jejich složky
  • Příklad: screen_name uchovává uživatelské jméno na Twitteru

Atributy a hodnoty Twitter JSON

Analýza dat ze sociálních médií v R

Převod JSON na datový rámec

  • Twitter JSON převeden na datový rámec knihovnou rtweet
  • Atributy a hodnoty převedeny na názvy sloupců a hodnoty

Atributy JSON převedené na sloupce datového rámce

Analýza dat ze sociálních médií v R

Zobrazení složek tweetů

# Extract tweets on "#brexit" using search_tweets()
tweets_df <- search_tweets("#brexit")

# View the column names
names(tweets_df)
Analýza dat ze sociálních médií v R

Zobrazení složek tweetů

Složky tweetu

Analýza dat ze sociálních médií v R

Zkoumání složek

  • screen_name pro zjištění zájmů uživatele
  • followers_count pro porovnání vlivu na sociálních sítích
  • retweet_count a text pro identifikaci populárních tweetů
Analýza dat ze sociálních médií v R

Zájem uživatelů a počty tweetů

  • screen_name označuje uživatelské jméno na Twitteru
  • Počet tweetů naznačuje zájem o dané téma
  • Propagace produktů uživatelům se zájmem o téma
Analýza dat ze sociálních médií v R

Zájem uživatelů a počty tweetů

# Extract tweets on "#Arsenal" using search_tweets()
twts_arsnl <- search_tweets("#Arsenal", n = 18000)

# Create a table of users and tweet counts for the topic
sc_name <- table(twts_arsnl$screen_name)
head(sc_name)

_____today_____   ___JJ23    ___SAbI__   __ambell   __Amzo__     __bobbysingh 
       1               2          3           1         1               1
Analýza dat ze sociálních médií v R

Zájem uživatelů a počty tweetů

# Sort the table in descending order of tweet counts
sc_name_sort <- sort(sc_name, decreasing = TRUE)

# View top 6 users and tweet frequencies
head(sc_name_sort)

 _whatthesport  footy90com  Official_ATG1   TheShortFuse   RubellM   ArsenalZone_Ind 
      176           90            88             53           48            43
Analýza dat ze sociálních médií v R

Počet sledujících

  • Počet sledujících daného twitterového účtu
  • Indikátor popularity účtu
  • Míra vlivu na sociálních sítích
  • Umístění reklam na populárních účtech pro větší viditelnost
Analýza dat ze sociálních médií v R

Porovnání počtu sledujících

# Extract user data using lookup_users()
tvseries <- lookup_users("GameOfThrones", "fleabag", "BreakingBad")

# Create a dataframe with the columns screen_name and followers_count
user_df <- tvseries[,c("screen_name","followers_count")]
Analýza dat ze sociálních médií v R

Porovnání počtu sledujících

# View the followers count for comparison
user_df

screen_name        followers_count
<chr>                   <int>
GameOfThrones          8597188            
fleabag                  58727            
BreakingBad            1240349
Analýza dat ze sociálních médií v R

Počty retweetů a populární tweety

  • Retweet je tweet sdílený jiným uživatelem
  • retweet_count uchovává počet retweetů
  • Počet retweetů pomáhá identifikovat trendy
  • Populární retweety lze využít k propagaci značky
Analýza dat ze sociálních médií v R

Počty retweetů a populární tweety

# Create a data frame of tweet text and retweet counts
rtwt <- tweets_arsenal[,c("text", "retweet_count")]

# Sort data frame based on descending order of retweet counts
library(dplyr)
rtwt_sort <- arrange(rtwt, desc(retweet_count))
Analýza dat ze sociálních médií v R

Počty retweetů a populární tweety

# Exclude rows with duplicate tweet text
rtwt_unique <- unique(rtwt_sort, by = "text")
Analýza dat ze sociálních médií v R

Počty retweetů a populární tweety

# Print top 6 unique posts retweeted most number of times
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
Analýza dat ze sociálních médií v R

Lass uns üben!

Analýza dat ze sociálních médií v R

Preparing Video For Download...