```r
g0<-ggplot(d,aes(x=Lshell,y=BTVolume))
g1<-g0+geom_point() + geom_smooth(method="lm") 
g1 + xlab("Some text for the x asis") + ylab("Some text for the y axis")
```

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