Scores de sentimento
No livro A Revolução dos Bichos, três porcos principais são responsáveis pelos eventos: Napoleão, Bola-de-Neve e Garganta. Ao longo do livro, eles espalham ideias de rebelião e incentivam os outros animais a tomar a fazenda do Sr. Jones — o dono da fazenda.
Usando as frases que mencionam cada porco, determine qual personagem tem o sentimento mais negativo associado a ele. A tibble sentences contém uma tibble com as frases do livro A Revolução dos Bichos.
Este exercício faz parte do curso
Introdução ao Processamento de Linguagem Natural em R
Instruções do exercício
- Use a função
grepl()para filtrar as frases que mencionam apenas o nome dos porcos. - Usando um
inner_join(), junte o score de sentimento do léxicoafinn. - Resuma os resultados somando a coluna
score.
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
# 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))
}