violin_plots.R

scatter_violin <- ggplot(data = dat, aes(x = condition, y = value)) +
  geom_violin(aes(fill = condition, color = condition)) +
  geom_crossbar(stat = "summary", fun.y = mean, fun.ymax = mean, fun.ymin = mean, fatten = 2, width = .5) +
  geom_point(color = "black", size = 1, position = position_jitter(w = 0.05)) +
  theme_minimal()


# original: https://inattentionalcoffee.wordpress.com/2017/02/14/data-in-the-raw-violin-plots/