```r
library(ggplot2)
g0<-ggplot(data=larvae, aes(x=tannin,y=growth))
g1<-g0+geom_point()
g1+geom_smooth(method="lm")
```

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