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

<img src="004a_anova_files/figure-html/unnamed-chunk-22-1.png" width="672" />