```r
library(mgcv)
g0<-ggplot(TMean,aes(x=Year,y=temp))
g0 + geom_point() + geom_smooth(method="gam", formula =y~s(x))
```

<img src="Quantitative_and_Spatial_files/figure-html/unnamed-chunk-158-1.png" width="672" />