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