Twitter duygu analizi

R ile Sosyal Medya Verilerini Analiz Etme

Vivek Vijayaraghavan

Data Science Coach

Ders özeti

Duygu analizi nedir?
Tweetlerde duygu analizi yapın
İnsanların duygu ve görüşlerini anlamak için yorumlayın

Duygu analizi

Bir ürün veya marka algısına dair bilgi edinin
Olumlu, olumsuz ve nötr görüşleri çıkarın ve sayısallaştırın
Metinden güven, sevinç, öfke gibi duygular

Duygu analizi duyguları

Duygu analizinin önemi

Müşteri algısı satın alma kararlarını etkiler
Müşterilerin nabzını anlamaya yardımcı olur
Müşteriyi dinlemek ve doğrudan etkileşime geçmek için proaktif yaklaşım

Duygu analizi nasıl çalışır

Puan hesaplamak için ön tanımlı duygu sözlükleri
Sözcüklerin anlamı/niyetine göre eğitilir ve puanlanır
Her sözcük, olumluya/olumsuza yakınlığına göre puanlanır
Aynı kavram, belirli duyguları ifade eden sözcüklere de uygulanır

Duygu analizi adımları

Duygu analizinde Adım 1

Duygu analizi adımları

Duygu analizinde Adım 2

Duygu analizi adımları

Duygu analizinde Adım 3

Duygu analizi adımları

Duygu analizinde Adım 4

Duygu analizi için tweetleri çıkarma

# galaxy fold hakkında tweetleri çıkar
twts_galxy  <-  search_tweets("galaxy fold", n = 5000, 
                                lang = "en", include_rts = FALSE)

Duygu analizi yapma

# galaxy fold tweetleri için duygu analizi yap
library(syuzhet)
sa.value <- get_nrc_sentiment(twts_galxy$text)

Duygu puanlarını görüntüleme

# Duygu puanlarını görüntüle
sa.value[1:5,1:7]

anger    anticipation    disgust    fear    joy    sadness    surprise
<dbl>       <dbl>         <dbl>     <dbl>  <dbl>    <dbl>       <dbl> 
0             0             0         0      0        0           0
1             0             0         0      0        0           0
1             1             0         2      1        1           1
0             0             0         1      0        0           0
0             0             0         0      0        0           0

Duygu puanlarının toplamı

# Duygu puanlarının toplamını hesapla
score <- colSums(sa.value[,])

Duygu puanlarının veri çerçevesi

# Veri çerçevesine dönüştür
score_df <- data.frame(score)

# Veri çerçevesini görüntüle
score_df

               score
               <dbl>
anger           211            
anticipation    825            
disgust         214            
fear            253            
joy             412            
sadness         197            
surprise        315            
trust           641            
negative        487            
positive       1351

Duygu puanlarının veri çerçevesi

# Satır adlarını 'sentiment' sütununa çevir
# Duygu puanlarıyla birleştir
sa.score <- cbind(sentiment = row.names(score_df), 
                  score_df, row.names=NULL)

Duygu puanlarının veri çerçevesi

# Duygu puanlı veri çerçevesini görüntüle
print(sa.score)

sentiment      score
<fct>         <dbl>
anger           211            
anticipation    825            
disgust         214            
fear            253            
joy             412            
sadness         197            
surprise        315            
trust           641            
negative        487            
positive        1351

Duyguları görselleştirin

ggplot() ile duygu puanlarını görselleştirin

# Duygu puanlarını görselleştir
ggplot(data = sa.score2, aes(x = sentiment, y = score, 
       fill = sentiment)) +
       geom_bar(stat = "identity") +
       theme(axis.text.x = element_text(angle = 45, hjust = 1))

Duyguları görselleştirin

Hadi pratik yapalım!

R ile Sosyal Medya Verilerini Analiz Etme