# Ordenar las palabras de mayor a menor frecuencia top10$palabra <- factor(top10$palabra, levels = rev(top10$palabra[order(top10$Frecuencia)])) # Gráfico estilo imagen ggplot(top10, aes(x = palabra, y = Frecuencia, fill = palabra)) + geom_col(width = 0.9) + geom_label( aes(label = Frecuencia), color = "white", # texto blanco size = 4, label.size = 1, # sin borde fontface = "bold", show.legend = FALSE ) + #35 theme(axis.text.x = element_text(angle = -45, vjust = 1, hjust=-0.3)) + #36 theme_light() + #37 theme(legend.position = "topleft") + #38 facet_grid(~"Palabras más Frecuentes") + #39 coord_flip() + theme_light() + theme( plot.title = element_text(hjust = 0.5, face = "bold"), legend.position = "none" )