Consider the simple example:
library(ggplot2)
head(mtcars)
# create the plot
ggplot(mtcars, aes(factor(cyl))) + geom_bar() + theme_bw() +
theme(strip.text.x = element_text(size = 20, face="bold"))+
xlab("number of cyl") + ylab("Count")
Now we can obtain the average $mpg per cyl with:
aggregate(mpg ~ cyl, data = mtcars, FUN=mean)
How can I put these average values into the x-axis so that they appear below the corresponding cyl. Can one draw a table and somehow write that this is the ...average mpg per cyl...

facet_gridinstead ofggtitle()to put a title on the plot? This may add unneccessary complexity to a potential answer.