Wyniki sentymentu
W książce „Folwark zwierzęcy" trzy główne świnie odpowiadają za bieg wydarzeń: Napoleon, Snowball i Squealer. Przez całą książkę szerzą idee buntu i zachęcają pozostałe zwierzęta do przejęcia farmy od jej właściciela – Jonesa.
Korzystając ze zdań, w których pojawia się każda ze świń, określ, z którą postacią wiąże się najbardziej negatywny sentyment. Ramka danych sentences zawiera zdania z książki „Folwark zwierzęcy".
To ćwiczenie jest częścią kursu
Wprowadzenie do przetwarzania języka naturalnego w R
Instrukcje do ćwiczenia
- Użyj funkcji
grepl(), aby przefiltrować zdania zawierające wyłącznie imię danej świni. - Za pomocą
inner_join()dołącz wynik sentymentu z leksykonuafinn. - Podsumuj wyniki, sumując kolumnę
score.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
# Print the overall sentiment associated with each pig's sentences
for(name in c("napoleon", "snowball", "squealer")) {
# Filter to the sentences mentioning the pig
pig_sentences <- sentences[___(___, sentences$sentence), ]
# Tokenize the text
napoleon_tokens <- pig_sentences %>%
unnest_tokens(output = "word", token = "words", input = sentence) %>%
anti_join(stop_words)
# Use afinn to find the overall sentiment score
result <- napoleon_tokens %>%
inner_join(___("___")) %>%
summarise(sentiment = ___(___))
# Print the result
print(paste0(name, ": ", result$sentiment))
}