Englands temperature since 1659

scatterTemp.r

#Dataset is cetml1659on.dat from hadcet [here](http://www.metoffice.gov.uk/hadobs/hadcet/data/download.html)

mydata = read.csv("cetml1659on.csv", header=TRUE)
gg<- ggplot(mydata, aes(x=Date, y=YEAR)) +
geom_point(shape=1) +    # Use hollow circles
geom_smooth(method=lm)

plot.title = 'England Temperatures Since 1659'
plot.subtitle = 'HadCET Data. Correlation of Year and Temp .41 @iamreddave'
gg <- gg + ggtitle(bquote(atop(.(plot.title), atop(italic(.(plot.subtitle)), ""))))

gg <- gg + labs(x="YEAR", y="Degrees C")
gg <- gg + theme_tufte(base_family="Helvetica")