Tweet filtreleme

R ile Sosyal Medya Verilerini Analiz Etme

Vivek Vijayaraghavan

Data Science Coach

Ders Özeti

Tweet bileşenlerine göre filtreleme
- Orijinal tweetleri çıkarma
- Tweet dili
- Minimum retweet ve beğeni sayısına göre popüler tweetler

Orijinal tweetleri filtreleme

Orijinal tweet, bir kullanıcının kendi gönderisidir
Retweet, alıntı veya yanıt değildir
Orijinal tweetler içeriğin tekrarlanmamasını sağlar
Kullanıcı etkileşimini korumaya yardımcı olur

Orijinal tweetleri filtreleme

Orijinal tweetleri çıkarmak için -filter kullanılır
-filter:retweets tüm retweetleri dışlar
-filter:quote alıntı tweetleri çıkarır
-filter:replies yanıt türü tweetleri filtreler

Filtre olmadan tweet çıkarma

"digital marketing" için filtresiz tweet çıkarın

# "digital marketing" hakkında 100 tweet çıkar
tweets_all <- search_tweets("digital marketing", n = 100)

Filtre olmadan tweet çıkarma

reply_to_screen_name, is_quote, is_retweet sütunlarındaki değer sayılarını kontrol edin

# Yanıt sayısını kontrol et
library(plyr)
count(tweets_all$reply_to_screen_name)

x               freq
<fct>          <int>
blairaasmith      2            
javiergosende     1            
juanburgos        1            
WhutTheHale       2            
NA               94

Filtre olmadan tweet çıkarma

# Alıntı sayısını kontrol et
count(tweets_all$is_quote)

x        freq
<lgl>    <int>
FALSE     98            
TRUE       2

Filtre olmadan tweet çıkarma

# Retweet sayısını kontrol et
count(tweets_all$is_retweet)

x         freq
<lgl>    <int>
FALSE      61            
TRUE       39

Retweet, alıntı ve yanıtlari dışla

"digital marketing" için -filter uygulayarak tweet çıkarın

# '-filter' uygula
tweets_org <- search_tweets("digital marketing 
                            -filter:retweets 
                            -filter:quote 
                            -filter:replies", 
                            n = 100)

Retweet, alıntı ve yanıtlari dışla

Çıktıyı kontrol edin: yanıtlar, alıntılar ve retweetler dışlandı mı?

# Yanıt sayısını kontrol et
library(plyr)
count(tweets_org$reply_to_screen_name)

x         freq
<lgl>    <int>
NA         100

Retweet, alıntı ve yanıtlari dışla

# Alıntı sayısını kontrol et
library(plyr)
count(tweets_org$is_quote)

x         freq
<lgl>    <int>
FALSE     100

# Retweet sayısını kontrol et
library(plyr)
count(tweets_org$is_retweet)

x         freq
<lgl>    <int>
FALSE     100

Dile göre tweet filtreleme

lang tweetleri dile göre filtreler
Belirli bir dildeki tweetlerle eşleşir

Birkaç dil için Twitter dil kodları

Dile göre tweet filtreleme

# İspanyolca atılan tweetleri filtreleyin ve çıkarın
tweets_lang <- search_tweets("brand marketing", lang = "es")

Dile göre tweet filtreleme

View(tweets_lang)

İspanyolca çıkarılan tweetler

Dile göre tweet filtreleme

head(tweets_lang$lang)

[1] "es" "es" "es" "es" "es" "es"

Retweet ve beğeni sayılarına göre filtreleme

min_faves: minimum beğeni sayısı filtresi
min_retweets: minimum retweet sayısı filtresi
Her iki koşulu kontrol etmek için AND kullanın

Retweet ve beğeni sayılarına göre filtreleme

# En az 100 beğeni ve retweeti olan tweetleri çıkarın 
tweets_pop <- search_tweets("bitcoin min_faves:100 AND
                            min_retweets:100")

Retweet ve beğeni sayılarına göre filtreleme

# Retweet ve beğeni sayılarını kontrol etmek için veri çerçevesi oluşturun
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

Retweet ve beğeni sayılarına göre filtreleme

# Tweetleri görüntüleyin
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.

Haydi pratik yapalım!

R ile Sosyal Medya Verilerini Analiz Etme