Adding appropriate filled shapes to a dendrogram can help draw +attention to important groupings. Shapes from ggfoundry’s “leaf” set are +used here to augment a ggdendro plot.
+
+data <-
+ rpart(Kyphosis ~ Age + Number + Start, data = kyphosis) |>
+ dendro_data()
+
+ggplot() +
+ geom_segment(
+ aes(x, y, xend = xend, yend = yend),
+ colour = "tan4", data = data$segments,
+ ) +
+ geom_label(
+ aes(x, y, label = label),
+ size = 3, fill = "seashell", data = data$labels) +
+ geom_casting(aes(x, y, shape = label, fill = label),
+ colour = "tan4", size = 0.27, data = data$leaf_labels) +
+ scale_shape_manual(values = c("hibiscus", "oak")) +
+ scale_fill_manual(values = c("olivedrab3", "darkorange")) +
+ labs(title = "Leafy Dendrogram", shape = "Kyphosis", fill = "Kyphosis") +
+ theme_dendro() +
+ theme(
+ plot.title = element_text(hjust = 0.5),
+ legend.key.size = unit(2, "line"),
+ legend.position = "top"
+ )