ggplot(datos.m, aes(x = raza, fill = raza)) +
  geom_bar(olor = "black", alpha = 0.7) +
  coord_flip() +
  labs(title = "Distribución de la variable Raza",
       x = "Categorías de raza",
       y = "Frecuencia absoluta") +
  scale_fill_manual(values = c("darkblue","purple","gold","cadetblue3")) +
  theme_minimal()