Show element values in barplot

I'm trying to put original counts into a barplot, but it's always messy:

set.seed(123)
c<-c(2, 3.5, 5, 7.9, 8.8, 12.3)
x<-sample(c, 100, replace=T)
barplot(table(x))
text(c, table(x)+2, labels=as.character(table(x)))

Would somebody have some suggestions?