Plotting in ggplot2 using lsmeans

lsmeanPlotting.R

ggplot(NULL, aes(x = x, y = NULL))+
  geom_point(data = data, 
             aes(y = y, fill = z, color = z),
             position = position_jitterdodge(jitter.width = .2, jitter.height = .2, dodge.width = .9),
             alpha = .15, size = 3)+
  geom_crossbar(data = data.frame(summary(lsmeans(mixed.model$full.model, ~ z|x)),
                aes(y = lsmean, ymax = upper.CL, ymin = lower.CL, color = view),
                size = 1, position = "dodge", fatten = 2)