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
##
## fondo salir dejar caso perdido caer madre pobre
## 43 30 27 23 23 22 21 21
## duda imposible salida jaula
## 20 20 18 17