Add leaf shapes #10

NEWS.md

@@ -1,6 +1,7 @@
 # ggfoundry (development version)
 
--   New `display_palette()` uses a fillable shape for palette and hex codes.
+-   2 shapes ("oak" & "hibiscus") added to a "leaf" set (#10).
+-   New `display_palette()` uses a fillable shape for palette & hex codes (#9).
 -   Uses `cli_abort`, instead of `abort`, for error message handling.
 -   Added use of `use_spell_check()`.
 

tests/testthat/_snaps/geom_casting.md

@@ -35,11 +35,13 @@
       33      geom     dendro
       35      geom     ribbon
       37      geom     violin
-      39   penguin     adelie
-      41   penguin  chinstrap
-      43   penguin     gentoo
-      45   polygon   heptagon
-      47   polygon    hexagon
-      49   polygon    octagon
-      51   polygon   pentagon
+      39      leaf   hibiscus
+      41      leaf        oak
+      43   penguin     adelie
+      45   penguin  chinstrap
+      47   penguin     gentoo
+      49   polygon   heptagon
+      51   polygon    hexagon
+      53   polygon    octagon
+      55   polygon   pentagon
 

vignettes/example_uses.Rmd

@@ -23,6 +23,8 @@ suppressPackageStartupMessages(library(dplyr))
 library(paletteer)
 library(scales)
 library(palmerpenguins)
+library(rpart)
+library(ggdendro)
 ```
 
 ## Exhibit a palette
@@ -105,3 +107,34 @@ count_df |>
     ) +
   guides(shape = guide_legend(override.aes = list(size = 8)))
 ```
+
+## Leafy dendrograms
+
+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](https://github.com/andrie/ggdendro) plot.
+
+```{r}
+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"
+    )
+```
+

vignettes/ggfoundry.Rmd

@@ -288,7 +288,7 @@ After travelling the mountains, seas and forests of the world in search of that
 
 These modest starter sets are included with the package. You can "mix and match" shapes from different sets; the "set" is for grouping shapes in the documentation and for use in `shapes_cast()` to filter for the desired shapes.
 
-```{r sets, echo=FALSE, message=FALSE, warning=FALSE, fig.height=6}
+```{r sets, echo=FALSE, message=FALSE, warning=FALSE, fig.height=7}
 
 library(dplyr)
 library(forcats)