Socialemediagegevens analyseren in R
Sowmya Vivek
Data Science Coach
screen_name bevat de Twitter-handle van een gebruiker
rtweet-bibliotheek
# Tweets over "#brexit" ophalen met search_tweets()
tweets_df <- search_tweets("#brexit")
# Bekijk de kolomnamen
names(tweets_df)

screen_name om interesse van gebruikers te zienfollowers_count om invloed op social media te vergelijkenretweet_count en text om populaire tweets te vindenscreen_name is de Twitter-handle# Tweets over "#Arsenal" ophalen met search_tweets()
twts_arsnl <- search_tweets("#Arsenal", n = 18000)
# Tabel maken met gebruikers en aantallen tweets over het onderwerp
sc_name <- table(twts_arsnl$screen_name)
head(sc_name)
_____today_____ ___JJ23 ___SAbI__ __ambell __Amzo__ __bobbysingh
1 2 3 1 1 1
# Sorteer de tabel aflopend op aantal tweets
sc_name_sort <- sort(sc_name, decreasing = TRUE)
# Bekijk de top 6 gebruikers en tweetfrequenties
head(sc_name_sort)
_whatthesport footy90com Official_ATG1 TheShortFuse RubellM ArsenalZone_Ind
176 90 88 53 48 43
# Gebruikersdata ophalen met lookup_users()
tvseries <- lookup_users("GameOfThrones", "fleabag", "BreakingBad")
# Dataframe maken met de kolommen screen_name en followers_count
user_df <- tvseries[,c("screen_name","followers_count")]
# Bekijk het aantal volgers ter vergelijking
user_df
screen_name followers_count
<chr> <int>
GameOfThrones 8597188
fleabag 58727
BreakingBad 1240349
retweet_count slaat het aantal retweets op# Dataframe met tweet-tekst en retweetaantallen
rtwt <- tweets_arsenal[,c("text", "retweet_count")]
# Sorteer aflopend op retweetaantallen
library(dplyr)
rtwt_sort <- arrange(rtwt, desc(retweet_count))
# Rijen met dubbele tweet-tekst uitsluiten
rtwt_unique <- unique(rtwt_sort, by = "text")
# Top 6 unieke posts met de meeste retweets printen
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
Socialemediagegevens analyseren in R