```r
g_mean<-g_box+stat_summary(fun.y=mean,geom="point",col="red")
g_mean+stat_summary(fun.data=mean_cl_normal,geom="errorbar",col="red")
```

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