Duygu analizini iyileştirme

R ile Metin Analizine Giriş

Maham Faisal Khan

Senior Data Science Content Developer

Puanlara göre duygu sayımı

tidy_review %>% 
  inner_join(get_sentiments("bing")) %>% 
  count(stars, sentiment)

# A tibble: 10 x 3
   stars sentiment     n
   <dbl> <chr>     <int>
 1     1 negative    381
 2     1 positive    241
 3     2 negative    384
# … with 7 more rows

pivot_wider() kullanımı

tidy_review %>% 
  inner_join(get_sentiments("bing")) %>% 
  count(stars, sentiment) %>% 
  pivot_wider(names_from = sentiment, values_from = n)

# A tibble: 5 x 3
  stars negative positive
  <dbl>    <int>    <int>
1     1      381      241
2     2      384      247
# … with 3 more rows

Genel duygu hesaplama

tidy_review %>% 
  inner_join(get_sentiments("bing")) %>% 
  count(stars, sentiment) %>% 
  pivot_wider(names_from = sentiment, values_from = n)     %>% 
  mutate(overall_sentiment = positive - negative)

# A tibble: 5 x 4
  stars negative positive overall_sentiment
  <dbl>    <int>    <int>             <int>
1     1      381      241              -140 ...
5     5     3705     5083              1378

Puanlara göre duygu görselleştirme

sentiment_stars <- tidy_review %>% 
  inner_join(get_sentiments("bing")) %>% 
  count(stars, sentiment) %>% 
  pivot_wider(names_from = sentiment, values_from = n)     %>% 
  mutate(
    overall_sentiment = positive - negative,
    stars = fct_reorder(stars, overall_sentiment)
  )

Puanlara göre duygu görselleştirme

ggplot(
  sentiment_stars, 
  aes(x = stars, y = overall_sentiment, fill = as.factor(stars))
) +
  geom_col(show.legend = FALSE) +
  coord_flip() +
  labs(
    title = "Yıldızlara Göre Genel Duygu",
    subtitle = "Robot Süpürge İncelemeleri",
    x = "Yıldız",
    y = "Genel Duygu"
  )

Hadi pratik yapalım!

R ile Metin Analizine Giriş