значения Показать элемент в barplot

Question

Я пытаюсь поставить оригинальные счетчики в barplot, но это всегда неаккуратно:

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))) 

ли кто-нибудь есть какие-то предложения?

Answer 1

Вам просто нужно убедиться, что ylim достаточно большой, чтобы ни один текст не был размещен за пределами области графика, а затем вам нужно положение середины баров и не забудьте разместить там текст.

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