在barplot中显示元素值

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