Sentimentpoäng
I boken Djurfarmen är tre grisar ansvariga för bokens händelser: Napoleon, Snowball och Squealer. Genom hela boken sprider de tankar om uppror och uppmuntrar de andra djuren att ta över gården från Mr. Jones – gårdens ägare.
Använd de meningar som nämner varje gris och avgör vilken karaktär som förknippas med den mest negativa känslan. Tibble:n sentences innehåller meningarna från boken Djurfarmen.
Den här övningen är en del av kursen
Introduktion till naturlig språkbehandling i R
Övningsinstruktioner
- Använd funktionen
grepl()för att filtrera fram meningar som nämner respektive grises namn. - Använd
inner_join()för att koppla samman sentimentpoängen från lexikonetafinn. - Sammanfatta resultaten genom att summera kolumnen
score.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
# 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))
}