R ile Sosyal Medya Verilerini Analiz Etme
Sowmya Vivek
Data Science Coach
screen_name bir kullanıcının Twitter adını tutar
rtweet kütüphanesi Twitter JSON'u veri çerçevesine çevirir
# search_tweets() ile "#brexit" tweet'lerini çıkarın
tweets_df <- search_tweets("#brexit")
# Sütun adlarını görüntüleyin
names(tweets_df)

screen_namefollowers_countretweet_count ve textscreen_name Twitter kullanıcı adını ifade eder# search_tweets() ile "#Arsenal" tweet'lerini çıkarın
twts_arsnl <- search_tweets("#Arsenal", n = 18000)
# Konu için kullanıcılar ve tweet sayılarından tablo oluşturun
sc_name <- table(twts_arsnl$screen_name)
head(sc_name)
_____today_____ ___JJ23 ___SAbI__ __ambell __Amzo__ __bobbysingh
1 2 3 1 1 1
# Tabloyu tweet sayısına göre azalan sıralayın
sc_name_sort <- sort(sc_name, decreasing = TRUE)
# İlk 6 kullanıcı ve tweet sıklıklarını görün
head(sc_name_sort)
_whatthesport footy90com Official_ATG1 TheShortFuse RubellM ArsenalZone_Ind
176 90 88 53 48 43
# lookup_users() ile kullanıcı verilerini alın
tvseries <- lookup_users("GameOfThrones", "fleabag", "BreakingBad")
# screen_name ve followers_count sütunlarıyla bir veri çerçevesi oluşturun
user_df <- tvseries[,c("screen_name","followers_count")]
# Karşılaştırma için takipçi sayılarını görüntüleyin
user_df
screen_name followers_count
<chr> <int>
GameOfThrones 8597188
fleabag 58727
BreakingBad 1240349
retweet_count retweet sayısını tutar# Tweet metni ve retweet sayılarından veri çerçevesi oluşturun
rtwt <- tweets_arsenal[,c("text", "retweet_count")]
# Retweet sayısına göre azalan sıralayın
library(dplyr)
rtwt_sort <- arrange(rtwt, desc(retweet_count))
# Yinelenen tweet metinli satırları hariç tutun
rtwt_unique <- unique(rtwt_sort, by = "text")
# En çok retweet edilen ilk 6 benzersiz gönderiyi yazdırın
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
R ile Sosyal Medya Verilerini Analiz Etme