Violins vs bars with proportion data.

gistfile1.txt

library(dplyr)
library(ggplot2)

d <- data.frame(x = rep(c('a', 'b'), 50), y = rbinom(100, 1, 0.4))

summary <- d %>% 
             group_by(x) %>% 
             summarise(prop = mean(y), CI = 0.95 * sqrt((sum(y)/50 * (50 - sum(y))/50) / 50))

ggplot(summary, aes(x, prop)) + 
  geom_bar(stat = 'identity') +
  geom_errorbar(aes(ymax = prop + CI, ymin = prop - CI), width = 0.5) 
  
ggsave('E://tim/stuff/bars.png')
  

ggplot(d, aes(x, y)) + 
  geom_violin() + 
  geom_jitter(width = 0.2, height = 0.1)
  
ggsave('E://tim/stuff/violins.png')