Recently Published
NOAA Storm data, property and human damage
For Coursera project
Plot
# 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"
)
