How do I show a group variable along with the numeric mid point on the axis of my plot?

Question

I have some data, of which this is a subset:

MyDataToSO <- data.frame(Age = c(2, 7, 12, 16, 21),
                     AgeGroup = c("0-4 years", "