```r
g0 <- ggplot(d,aes(x=Site,y=Lshell))
g_box<-g0 + geom_boxplot(fill="grey",colour="black", notch=TRUE)+theme_bw()
g_box
```

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