# NOT RUN {
library(simplevis)
library(dplyr)
library(palmerpenguins)
gg_hboxplot_col(penguins,
x_var = body_mass_g,
y_var = species,
col_var = sex,
col_na_rm = TRUE)
#For ggplotly, pipe in plotly::layout(boxmode = "group") layer
plot_data <- penguins %>%
group_by(species, sex) %>%
summarise_boxplot_stats(body_mass_g)
outliers <- penguins %>%
group_by(species, sex) %>%
summarise_boxplot_outliers(body_mass_g)
size_width <- 0.5
gg_hboxplot_col(plot_data,
xmin_var = min,
xlower_var = lower,
xmiddle_var = middle,
xupper_var = upper,
xmax_var = max,
y_var = species,
col_var = sex,
size_width = size_width,
stat = "identity",
x_title = "Body mass g",
x_breaks_n = 4,
col_na_rm = TRUE) +
ggplot2::geom_point(ggplot2::aes(x = species, y = body_mass_g, col = sex),
size = 0.75,
position = ggplot2::position_dodge(width = size_width),
data = outliers)
# }
Run the code above in your browser using DataLab