Se puede resolver con dos ligeros cambios a tu código.
Agregar un mutate()
para cambiar sentiment
después del count()
, pasándolo a un factor al que le definimos explícitamente los levels=
. De ese modo siempre habrá positive y y negative, independientemente de los datos.
En spread()
usar el argumento drop = FALSE
para que siempre haga una columna por nivel (level
), aunque no esté presente en los datos. De este modo aprovechamos el cambio que hicimos anteriormente.
Así quedaría con tu código:
sentimiento <- prueba_tokens %>%
anti_join(stop_words, by="word") %>%
inner_join(get_sentiments("bing"), by="word") %>%
count(sentiment, rowname) %>%
#Pasamos sentiment a factor con dos niveles explícitos, positive y negative
#De este modo ambas categorías estarán, independientemente de que aparezcan en los datos
mutate(sentiment = factor(sentiment, levels = c("positive", "negative"))) %>%
#Agregamos drop = FALSE, para que conserve todos los niveles del factor,
#aunque NO estén presentes
spread(sentiment, n, fill = 0, drop = FALSE) %>%
mutate(polaridad=positive-negative)
Seguramente hay otras maneras de hacerlo, esta me gusta porque la solución implica ubicar la información en los datos y mantener las operaciones lógicas simples. Es consiste con la regla de la representación: "Fold knowledge into data so program logic can be stupid and robust."