Показывать значения элементов в гистограмме
Я пытаюсь подсчитать в барплоте оригинальные цифры, но это всегда грязно:
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)))
Есть ли у кого-нибудь предложения?