How to add frequency & percentage on the same histogram in R?

Question

Consider the following data set.

x <- c(2,2,2,4,4,4,4,5,5,7,7,8,8,9,10,10,1,1,0,2,3,3,5,6)
hist(x, nclass=10)

I want to have a histogram where