0.1 Aprendido en la clase TED

0.1.1 ¿Cuáles son las palabras mas comunes?

grafico1 <- texto1_frecuencias %>% 
  top_n(10) %>% 
  ggplot() + aes(x = fct_reorder(Token, n), y = n, fill = Token) +
  geom_col() +
  labs(x = NULL, y = "Frecuencia", 
       title = "Análisis de texto del libro La palabra del mudo") +
  theme_minimal() +
  theme(legend.position = "none") + 
  coord_flip()
grafico1

0.1.2 ¿Qué sentimiento abunda en La palabra del mudo?

# Gráfico de sentimientos
texto1_sentimientos %>% 
  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 del libro La palabra del mudo",
       x = "Sentimientos",
       y = "Frecuencia") +
  theme_bw()

0.1.3 Word Cloud

wordcloud(words = texto1_frecuencias$Token,
          freq  = texto1_frecuencias$n,
          max.words = 100,
          random.order = FALSE,
          min.freq = 2,
          colors = brewer.pal(8, "Dark2"),
          scale = c(5, 0.1),
          rot.per = 0.2)

# Usar wordcloud2
wordcloud2(texto1_frecuencias, size = 0.2, shape = "star")

0.2 Análisis proporcionado por “syuzhet”

0.2.1 Gráfico de emociones

barplot(
  colSums(prop.table(miau2[, 1:8])),
  space = 0.2,
  horiz = FALSE,
  las = 1,
  cex.names = 0.7,
  col = brewer.pal(n = 8, name = "Set1"),
  main = "Análisis de sentimientos del libro La palabra del mudo",
  sub = "Emociones",
  ylab = NULL
)

0.2.2 Análisis de palabras por emociones

## 
##     fondo     salir     dejar      caso   perdido      caer     madre     pobre 
##        43        30        27        23        23        22        21        21 
##      duda imposible    salida     jaula 
##        20        20        18        17

0.2.3 Word Cloud

set.seed(757) 
comparison.cloud(nube_tdm, random.order = FALSE,
                 colors = c("green", "red", "orange", "blue"),
                 title.size = 1, max.words = 50, scale = c(2.5, 1), rot.per = 0.4)

0.2.4 Análisis de sentimientos finales

sentimientos_valencia <- (miau2$negative * -1) + miau2$positive


simple_plot(sentimientos_valencia)

# Guardar análisis en un archivo CSV
write.csv(miau2, file = "analisis_sent_miau.csv", row.names = FALSE)