#mScatter(Utilities)

ggplot(data=Utilities,aes(x=month,y=temp))+geom_point()+aes(colour=thermsPerDay) + theme_bw() + ggtitle ("Utilities")