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)
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)