study %>%
tidyplot(x = treatment, y = score, color = treatment) %>%
add_data_points() %>%
add_mean_bar(alpha = 0.4) %>%
add_sem_errorbar() %>%
flip_plot()
energy %>%
tidyplot(x = year, y = energy, color = energy_type) %>%
add_barstack_absolute() %>%
flip_plot()
# Better solutions without `flip_plot()`
study %>%
tidyplot(x = score, y = treatment, color = treatment) %>%
add_data_points() %>%
add_mean_bar(alpha = 0.4) %>%
add_sem_errorbar()
energy %>%
tidyplot(x = energy, y = year, color = energy_type) %>%
add_barstack_absolute(orientation = "y")
Run the code above in your browser using DataLab