vignette

easystats · Aug 16, 2024 · 0c7ef79 · 0c7ef79
1 parent 0778356
commit 0c7ef79
Showing 1 changed file with 18 additions and 2 deletions.
diff --git a/vignettes/seecolorscales.Rmd b/vignettes/seecolorscales.Rmd
@@ -574,9 +574,25 @@ p8 <- ggplot(d, aes(x, fill = x)) +
   )
 
 
+d <- data.frame(
+  x = names(tate_colors())
+)
+
+p9 <- ggplot(d, aes(x, fill = x)) +
+  geom_bar(width = 0.9) +
+  scale_fill_manual(values = tate_colors()) +
+  scale_y_continuous(labels = NULL, expand = c(0, 0)) +
+  guides(fill = "none") +
+  ylab(NULL) +
+  xlab(NULL) +
+  theme(
+    axis.text.x = element_text(angle = 90),
+    panel.grid = element_blank()
+  )
+
 plots(
-  p1, p2, p3, p4, p5, p6, p7, p8,
+  p1, p2, p3, p4, p5, p6, p7, p8, p9,
   n_columns = 1L,
-  tags = c("Social", "Flat", "Material", "Metro", "See", "Pizza", "Bluebrown", "Okabe-Ito")
+  tags = c("Social", "Flat", "Material", "Metro", "See", "Pizza", "Bluebrown", "Okabe-Ito", "Tate")
 )
 ```