# NOT RUN {
library(dplyr)
library(simplevis)
library(palmerpenguins)
gg_boxplot(penguins,
x_var = species,
y_var = body_mass_g)
plot_data <- penguins %>%
group_by(species) %>%
summarise_boxplot_stats(body_mass_g)
outliers <- penguins %>%
group_by(species) %>%
summarise_boxplot_outliers(body_mass_g)
gg_boxplot(plot_data,
x_var = species,
ymin_var = min,
ylower_var = lower,
ymiddle_var = middle,
yupper_var = upper,
ymax_var = max,
stat = "identity",
y_title = "Body mass g",
y_breaks_n = 4) +
ggplot2::geom_point(ggplot2::aes(x = species, y = body_mass_g),
size = 0.75, col = pal_viridis_reorder(1),
data = outliers)
# }
Run the code above in your browser using DataLab