Polaridad ordenada con Bing: cuenta y pivota la gran ballena blanca
En este ejercicio aplicarás otro inner_join() usando el lexicón "bing".
Después manipularás los resultados con count() de dplyr y pivot_wider() de tidyr para conocer mejor el texto.
La función pivot_wider() distribuye los datos en varias columnas. En este caso, el sentimiento y los valores n correspondientes representan la frecuencia de términos positivos o negativos para cada línea. Usar pivot_wider() cambia los datos para que cada fila tenga ahora valores positivos y negativos, aunque sean 0.
Este ejercicio forma parte del curso
Análisis de sentimiento en R
Instrucciones del ejercicio
En este ejercicio, tu sesión de R tiene m_dick_tidy, que contiene el libro Moby Dick, y bing, que contiene el lexicón similar al del ejercicio anterior.
- Realiza un
inner_join()entrem_dick_tidyybing.- Como antes, une la columna
"term"dem_dick_tidycon la columna"word"del lexicón. - Llama al nuevo objeto
moby_lex_words.
- Como antes, une la columna
- Crea una columna
index, igual a aplicaras.numeric()adocument. Esto se hace dentro demutate()en el tidyverse. - Crea
moby_countencadenandomoby_lex_wordsacount(), pasandosentiment, index. - Genera
moby_wideencadenandomoby_countapivot_wider(), dondenames_fromes la columnasentiment,values_fromes la columnany los valores se rellenan convalues_fill = 0. arrangees el siguiente pipe que se usa para ordenar las filas por los valores deindex
ejercicio interactivo práctico
Prueba este ejercicio completando este código de ejemplo.
# Inner join
moby_lex_words <- inner_join(___, ___, by = c("___" = "___"))
moby_lex_words <- moby_lex_words %>%
# Set index to numeric document
mutate(___ = as.numeric(___))
moby_count <- moby_lex_words %>%
# Count by sentiment, index
___(___, ___)
# Examine the counts
moby_count
moby_wide <- moby_count %>%
# Pivot the sentiments
pivot_wider(names_from = ___, values_from = ___, values_fill = ___) %>%
arrange(index)
# Review the pivoted data
moby_wide