```r
g0 <- ggplot(d,aes(x=Site,y=Lshell))
g_mean<-g0+stat_summary(fun=base::mean,geom="bar")
g_mean+stat_summary(fun.data=mean_cl_normal,geom="errorbar")
```

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