Skóre sentimentu
V knize Farma zvířat jsou za události příběhu zodpovědní tři hlavní prasata: Napoleon, Kuliška a Kvičal. Po celou dobu knihy šíří myšlenky vzpoury a povzbuzují ostatní zvířata, aby převzala farmu od pana Jonese – jejího majitele.
Na základě vět, které zmiňují každé z prasat, urči, se kterou postavou je spojen nejvíce negativní sentiment. Tibble sentences obsahuje věty z knihy Farma zvířat.
Toto cvičení je součástí kurzu
Úvod do zpracování přirozeného jazyka v R
Pokyny k cvičení
- Pomocí funkce
grepl()vyfiltruj věty, které zmiňují pouze jméno daného prasete. - Pomocí
inner_join()přidej ke větám skóre sentimentu z lexikonuafinn. - Výsledky shrň součtem sloupce
score.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
# 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))
}