ggplot(data=redwine,aes(y=sulphates,x=alcohol,color=quality))+

  geom_point()+   scale_y_continuous(limits=c(0.3,1.4))+   scale_color_brewer()

ggplot(data=redwine,aes(y=sulphates,x=alcohol,color=quality))+

  geom_point()+   scale_y_continuous(limits=c(0.3,1.4))+   facet_wrap(~rating)+   scale_color_brewer()