Starcie tytanów! Amazon kontra Google – pozytywne recenzje

Pozytywne recenzje Amazona zawierają bigramy takie jak "good benefits", natomiast negatywne skupiają się na "workload" i problemach z "work-life balance".

Z kolei pozytywne recenzje Google'a wspominają m.in. "great food", "perks", "smart people" i "fun culture". Negatywne dotyczą "politics", "getting big", "bureaucracy" i "middle management".

Postanawiasz stworzyć wykres piramidowy, który zestawia pozytywne recenzje Amazona i Google'a, aby porównać różnice w wspólnych bigramach. Wstępnie załadowaliśmy ramkę danych all_tdm_df, zawierającą kolumny terms oraz odpowiadające im częstości bigramów AmazonPro i GooglePro. Na jej podstawie wyłonisz 5 bigramów, które pojawiają się w obu korpusach.

To ćwiczenie jest częścią kursu

Eksploracja tekstu metodą Bag-of-Words w R

Zobacz kurs

Instrukcje do ćwiczenia

Utwórz common_words z all_tdm_df, używając funkcji dplyr.
- Zastosuj filter() na kolumnie AmazonPro, aby zachować tylko wartości niezerowe.
- Podobnie odfiltruj kolumnę GooglePro pod kątem wartości niezerowych.
- Następnie użyj mutate(), aby dodać nową kolumnę diff zawierającą wartość abs (bezwzględną) różnicy między częstościami bigramów.
Przekaż common_words przez pipe do slice_max, aby utworzyć top5_df – odwołaj się do kolumny diff i wybierz 5 największych wartości. Wynik pojawi się w konsoli.
Utwórz pyramid.plot, przekazując kolejno top5_df$AmazonPro, top5_df$GooglePro, a następnie dodając etykiety z top5_df$terms.

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

# Filter to words in common and create an absolute diff column
common_words <- all_tdm_df %>% 
  filter(
    ___ != 0,
    ___ != 0
  ) %>%
  ___(diff = ___(___ - ___))

# Extract top 5 common bigrams
(top5_df <- common_words %>% ___(___, n = ___))

# Create the pyramid plot
pyramid.plot(top5_df$___, top5_df$___, 
             labels = top5_df$___, gap = 12, 
             top.labels = c("Amzn", "Pro Words", "Goog"), 
             main = "Words in Common", unit = NULL)

Edytuj i uruchom kod