## 3.3.5. Gráfico de dendograma con ggplot ##
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))
### 4.5. Construir gráficos de burbujas ###
ggplot(datos_burbujas_largo, aes(x = categoria_label, y = cluster)) +
geom_point(aes(size = valor, fill = cluster), # Paleta de colores de los custers
shape = 21, color = "gray20", alpha = 0.9, stroke = 1) +
geom_text(aes(label = scales::number(valor, big.mark = ",", accuracy = 1)), #Texto dentro de burbujas
color = "white", size = 3, fontface = "bold") +
scale_fill_manual(values = paleta_colores) +
scale_size_area(max_size = 40) +
scale_y_discrete(limits = rev, name = "Cluster") +
scale_x_discrete(position = "top") +
labs(
title = "Clusteres de Municipios del Cauca",
subtitle = "Resumen por cluster del analisis jerarquico",
x = NULL,
y = NULL
) +
theme_minimal() +
theme(
plot.background = element_rect(fill = "black", color = NA),
panel.background = element_rect(fill = "black", color = NA),
plot.title = element_text(color = "white", size = 20, face = "bold", hjust = 0.5, margin = margin(b=10)),
plot.subtitle = element_text(color = "white", size = 14, hjust = 0.5, margin = margin(b=30)),
axis.text.x.top = element_text(color = "white", size = 12, face = "bold"),
axis.text.y = element_text(color = "white", size = 12, face = "bold"),
axis.title.y = element_text(color = "white", size = 12, face = "bold"),
panel.grid.major = element_line(color = "azure3", linetype = "dotted"),
panel.grid.minor = element_blank(),
legend.position = "none"
)
