Grafica de razas

library("ggplot2")
library("datos")

set.seed(2238)

encuesta$RazaFactor <- as.factor(encuesta$raza)

ggplot(encuesta, aes(x = RazaFactor)) +
  geom_bar(fill = "tomato") + 
  labs(title = "Frecuencia de Razas",
       x = "Raza",
       y = "Cantidad") +
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, color = "darkblue", size = 16, face = "bold")
  )