add peng-boxplots.R

friendly · Nov 10, 2023 · 5920954 · 5920954
1 parent 5064ee8
commit 5920954
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/R/penguin/peng-boxplots.R b/R/penguin/peng-boxplots.R
@@ -0,0 +1,19 @@
+library(dplyr)
+library(tidyr)
+library(ggplot2)
+
+
+load(here::here("data", "peng.RData"))
+
+peng_long <- peng %>% 
+  pivot_longer(bill_length_mm:body_mass_g, 
+               names_to = "characteristic", 
+               values_to = "value") 
+
+peng_long %>%
+  group_by(species) %>% 
+  ggplot(aes(value, species, fill = species)) +
+  geom_boxplot() +
+  facet_wrap(~characteristic, scales = 'free_x') +
+  theme(legend.position = 'none') 
+#  scale_fill_viridis_d()
diff --git a/figs/unnamed-chunk-37-1.png b/figs/unnamed-chunk-37-1.png