r - 在条形图中显示元素值

Question

我正在尝试将原始计数放入条形图中，但它总是很乱:

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)
origin <-c(2, 3.5, 5, 7.9, 8.8, 12.3)
x<-sample(origin, 100, replace=T)
b<-barplot(table(x),ylim=c(0,22))
text(x=b, y= table(x)+1, labels=as.character(table(x)))