How to add intervals to the x axis (factor levels) and stat bars in R ggplot I create this plot in R: