En esta presentación se hará la comparación de análisis de sentimientos con el
paquete enseñado en clase y el paquete “syuzhet” sobre el “Ensayo sobre la
ceguera” cuyo autor es José Saramago.

1 Análisis del texto usando lo aprendido en clase de Técnica de Explóración de datos

1.1 ¿Qué palabras son más frecuentes en el “Ensayo sobre la ceguera”?

grafico <- ensayo_frecuencias %>% 
  top_n(10) %>% 
  ggplot() + aes(x = fct_reorder(Token, n), 
                 y = n, fill = Token) +
  geom_col() +
  labs(x = NULL, y = "Frecuencia", 
       title = "Palabras frecuentes",
       subtitle = "Ensayo sobre la ceguera - José Saramago") +
  theme_light() +
  scale_fill_brewer(palette = "PRGn") +
  theme(legend.position = "none") + 
  coord_flip() 

grafico

1.2 Nube de palabras con la función word.cloud()

set.seed(123)
wordcloud(words= ensayo_frecuencias$Token,
          freq = ensayo_frecuencias$n,
          max.words = 100,
          random.order = FALSE,
          min.freq = 1,
          colors=brewer.pal(10, "PRGn"))

1.3 ¿Qué sentimientos predominan en el “Ensayo sobre la ceguera”’

library(dplyr)
ensayo_sentimiento1 %>% 
  dplyr::count(sentimiento) %>% 
  ggplot() + aes(x = fct_reorder(sentimiento, n),
                 y = n,
                 fill = sentimiento) + 
  geom_col(show.legend = F) + coord_flip() +
  labs(title ="Análisis de sentimientos",
       x = "Sentimientos",
       y = "Frecuencia") +
  theme_light() +
  scale_fill_brewer(palette = "Set3")

1.4 ¿Cuales son las palabras que se relacionan con sentimientos positivos o negativos?

ggplot(contar_palabras) + 
  aes(x = fct_reorder(Token, n),
      y = n,
      fill = sentimiento) +
  geom_col(show.legend = FALSE) +
  facet_wrap( ~ sentimiento, scales = "free", ncol = 3) +
  labs(title = "Gráfico de palabras por sentimiento",
       x = "Palabras", y = "Frecuencia") + 
  theme_bw() +
  coord_flip()

1.5 ¿Cuales son las palabras que se asocian a cada sentimiento?

ggplot(contar_palabras1) + 
  aes(x = fct_reorder(Token, n),
      y = n,
      fill = sentimiento) +
  geom_col(show.legend = FALSE) +
  facet_wrap( ~ sentimiento, scales = "free", ncol = 3) +
  labs(title = "Gráfico de palabras por sentimiento",
       x = "Palabras", y = "Frecuencia") + 
  theme_light() +
  scale_fill_brewer(palette = "RdBu")+
  coord_flip()

2 Análisis usando el paquete “Syuzhet”

2.1 Gráfico Barplot de sentimientos

barplot(
  colSums(prop.table(sentimientos_df[, 1:8])),
  space = 0.2,
  horiz = FALSE,
  las = 1,
  cex.names = 0.7,
  col = brewer.pal(n = 8, name = "Set2"),
  main = "Análisis de sentimientos con el paquete Syuzhet",
  sub = "Ensayo sobre la ceguera - José Saramago ",
  xlab="Emociones", ylab = NULL)

2.2 WordCloud con el paquete Syuzhet

comparison.cloud(nube_tdm, random.order = FALSE,
                 colors = c("green", "blue", "red", "orange"),
                 title.size = 1, max.words = 100, scale = c(1.8, 0.8), rot.per = 0.4)

2.3 Visualizando la evolucion de los sentimientos en el ensayo

sentimientos_valencia <- (sentimientos_df$negative *-1) + sentimientos_df$positive
simple_plot(sentimientos_valencia)