# Define custom style
my_style <- function(x) x |>
adjust_colors(colors_discrete_candy) |>
adjust_font(family = "mono")
# Set tidyplots options
tidyplots_options(
width = 3,
height = 4,
unit = "cm",
dodge_width = 1,
my_style = my_style
)
# Plot
study |>
tidyplot(x = group, y = score, color = dose) |>
add_mean_bar()
# Reset tidyplots options
tidyplots_options()
# Same plot
study |>
tidyplot(x = group, y = score, color = dose) |>
add_mean_bar()
Run the code above in your browser using DataLab