Bing tidy Polarität: Zählen und pivotieren – der weiße Wal

In dieser Übung führst du einen weiteren inner_join() mit dem "bing"-Lexikon aus.

Anschließend bearbeitest du die Ergebnisse mit count() aus dplyr und pivot_wider() aus tidyr, um mehr über den Text zu erfahren.

Die Funktion pivot_wider() verteilt Daten auf mehrere Spalten. In diesem Fall stehen das Sentiment und die zugehörigen n-Werte für die Häufigkeit positiver oder negativer Terme je Zeile. Mit pivot_wider() änderst du die Daten so, dass jede Zeile nun positive und negative Werte hat – auch wenn sie 0 sind.

Diese Übung ist Teil des Kurses

<Kurs>Sentimentanalyse in R</Kurs>

Kurs ansehen

Übungsanweisungen

In dieser Übung stehen dir in deiner R-Session m_dick_tidy (enthält das Buch Moby Dick) und bing (das Lexikon wie in der vorherigen Übung) zur Verfügung.

Führe einen inner_join() auf m_dick_tidy und bing aus.
- Wie zuvor verbindest du die Spalte "term" in m_dick_tidy mit der Spalte "word" im Lexikon.
- Nenne das neue Objekt moby_lex_words.
Erstelle eine Spalte index, die as.numeric() auf document anwendet. Das geschieht innerhalb von mutate() im Tidyverse.
Erzeuge moby_count, indem du moby_lex_words an count() weiterleitest und sentiment, index übergibst.
Erzeuge moby_wide, indem du moby_count an pivot_wider() pipest, wobei names_from der sentiment-Spalte entspricht, values_from der n-Spalte entspricht und die Werte mit values_fill = 0 aufgefüllt werden.
arrange ist der nächste Pipe, um die Zeilen nach index zu sortieren.

Interaktive praktische Übung

Versuche dich an dieser Übung, indem du diesen Beispielcode vervollständigst.

# Inner join
moby_lex_words <- inner_join(___, ___, by = c("___" = "___"))

moby_lex_words <- moby_lex_words %>%
  # Set index to numeric document
  mutate(___ = as.numeric(___))

moby_count <- moby_lex_words %>%
  # Count by sentiment, index
  ___(___, ___)

# Examine the counts
moby_count

moby_wide <- moby_count %>%
  # Pivot the sentiments
  pivot_wider(names_from = ___, values_from = ___, values_fill = ___) %>% 
  arrange(index)

# Review the pivoted data
moby_wide

Code bearbeiten und ausführen