nudging that stat_summary()

nudge.R

library(dplyr)
library(tidyr)
library(ggplot2)

df <- data_frame(x = rnorm(n = 20, mean = 4),
                 y = rnorm(n = 20, mean = 7)) %>% 
  gather(XY, numbers)

ggplot(df, aes(x = XY, y = numbers)) + 
  geom_point(position = position_jitter(width = 0.05)) +
  stat_summary(fun.data = "mean_cl_boot",
               colour = "red", size = 2,
               position = position_nudge(x = c(-0.1, 0.1)))