my_style <-
. %>%
adjust_colors(colors_continuous_bluepinkyellow) %>%
adjust_font(family = "mono", face = "bold") %>%
remove_x_axis_ticks() %>%
remove_y_axis_ticks()
study %>%
tidyplot(group, score, color = treatment) %>%
add_mean_bar(alpha = 0.3) %>%
add_error_bar() %>%
add_data_points_beeswarm() %>%
my_style()
energy_week %>%
tidyplot(date, power, color = energy_source) %>%
add_areastack_relative() %>%
my_style()