Gráfica de barras horizontal

library(ggplot2)
datos_agronomia <- data.frame(
  Cultivo = c("Maíz", "Trigo", "Soja", "Arroz"),
  Producción = c(120, 80, 90, 110)
)

ggplot(datos_agronomia, aes(x = Producción, y = reorder(Cultivo, Producción), fill = Cultivo)) +
geom_bar(stat = "identity", color = "black") + geom_text(aes(label = Producción), hjust = -0.2) +
  labs(title = "Rendimiento de cuatro cultivos en Nariño",
       x = "Rendimiento (tn/ha)",
       y = "Tipos de cultivos (Cultivo)",
       caption = "Período: 2021") +
  scale_fill_manual(values = c("Maíz" = "skyblue", "Trigo" = "salmon", "Soja" = "purple", "Arroz" = "pink")) +
  theme_light()