data(CountryData)
ggplot(data=CountryData,aes(x=HIVdeath,y=fert))+geom_point()+aes(colour=growth)+scale_x_log10() + stat_smooth(method=lm) + theme_bw() + ggtitle("Nate's Plot")