Puntajes de sentimiento
En el libro Animal Farm, tres cerdos principales son responsables de los acontecimientos del libro: Napoleon, Snowball y Squealer. A lo largo de la historia difunden ideas de rebelión y animan al resto de animales a hacerse con la granja de Mr. Jones, el propietario.
Usando las oraciones que mencionan a cada cerdo, determina qué personaje tiene el sentimiento más negativo asociado. El tibble sentences contiene un tibble con las oraciones del libro Animal Farm.
Este ejercicio forma parte del curso
Introducción al procesamiento del lenguaje natural en R
Instrucciones del ejercicio
- Usa la función
grepl()para filtrar las oraciones que mencionan solo el nombre del cerdo. - Usando un
inner_join(), une el puntaje de sentimiento del lexicónafinn. - Resume los resultados sumando la columna
score.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# 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))
}