boxplot

image.png

ggplot(ToothGrowth, aes(x=dose, y=len,color=supp)) +
  geom_boxplot(position=position_dodge(1))+
  scale_color_manual(values=c("red", "blue"))+
  geom_jitter(aes(x=xpos),width=.2, alpha=.5)