study %>%
tidyplot(x = treatment, y = score, color = treatment) %>%
add_data_points_beeswarm() %>%
add_mean_bar(alpha = 0.4) %>%
adjust_theme_details(plot.background = ggplot2::element_rect(fill = "#FFEBFF"))
Run the code above in your browser using DataLab