Komponenty danych z Twittera

Analiza danych z mediów społecznościowych w R

Sowmya Vivek

Data Science Coach

Przegląd lekcji

Wprowadzenie do JSON Twittera
Ekstrakcja komponentów metadanych z JSON
Wykorzystanie komponentów do uzyskania wniosków

JSON Twittera

Tweet może mieć ponad 150 komponentów metadanych
Tweety i ich komponenty zwracane są w formacie JSON

Atrybuty i wartości JSON

Atrybuty i wartości opisujące tweety oraz ich komponenty
Przykład: screen_name przechowuje uchwyt użytkownika na Twitterze

Atrybuty i wartości JSON Twittera

Konwersja JSON do dataframe

JSON Twittera jest konwertowany na dataframe przez bibliotekę rtweet
Atrybuty i wartości zamieniane są na nazwy kolumn i wartości

Atrybuty JSON przekonwertowane na kolumny dataframe

Przeglądanie komponentów tweetów

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

# View the column names
names(tweets_df)

Przeglądanie komponentów tweetów

Komponenty tweeta

Eksploracja komponentów

screen_name – zainteresowania użytkownika
followers_count – porównanie wpływu w mediach społecznościowych
retweet_count i text – identyfikacja popularnych tweetów

Zainteresowania użytkowników i liczba tweetów

screen_name to uchwyt na Twitterze
Liczba tweetów wskazuje zainteresowanie tematem
Promowanie produktów wśród zainteresowanych użytkowników

Zainteresowania użytkowników i liczba tweetów

# 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

Zainteresowania użytkowników i liczba tweetów

# 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

Liczba obserwujących

Liczba obserwujących dane konto na Twitterze
Wskaźnik popularności konta
Miara wpływu w mediach społecznościowych
Reklamy na popularnych kontach zwiększają widoczność

Porównanie liczby obserwujących

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

Porównanie liczby obserwujących

# View the followers count for comparison
user_df

screen_name        followers_count
<chr>                   <int>
GameOfThrones          8597188            
fleabag                  58727            
BreakingBad            1240349

Liczba retweetów i popularne tweety

Retweet to tweet udostępniony przez innego użytkownika
retweet_count przechowuje liczbę retweetów
Liczba retweetów pomaga identyfikować trendy
Popularne retweety można wykorzystać do promocji marki

Liczba retweetów i popularne 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))

Liczba retweetów i popularne tweety

# Exclude rows with duplicate tweet text
rtwt_unique <- unique(rtwt_sort, by = "text")

Liczba retweetów i popularne 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

Czas na ćwiczenia!

Analiza danych z mediów społecznościowych w R