# NOT RUN {
library(simplevis)
library(dplyr)
library(palmerpenguins)
gg_hboxplot(penguins,
x_var = body_mass_g,
y_var = species)
plot_data <- penguins %>%
group_by(species) %>%
summarise_boxplot_stats(body_mass_g)
outliers <- penguins %>%
group_by(species) %>%
summarise_boxplot_outliers(body_mass_g)
gg_hboxplot(plot_data,
xmin_var = min,
xlower_var = lower,
xmiddle_var = middle,
xupper_var = upper,
xmax_var = max,
y_var = species,
stat = "identity",
x_title = "Body mass g",
x_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