Visualizaciones_BI

ggplot() +
  geom_segment(data = segment(datos_dendograma),
               aes(x = x, y = y, xend = xend, yend = yend)) +
  geom_text(data = label(datos_dendograma),
            aes(x = x, y = y, label = label, hjust = 0, color = cluster),
            size = 3) +
  scale_color_manual(values = paleta_colores) +
  coord_flip() +
  scale_y_reverse(expand = c(0.2, 0)) +
  theme_void() +
  labs(title = "Dendrograma de Municipios del Cauca",
       subtitle = "Análisis socioeconómico, institucional y territorial") +
  theme(legend.position = "none",
        plot.title = element_text(hjust = 0.5, size=16, face="bold"),
        plot.subtitle = element_text(hjust = 0.5, size=12))