R柱状图，数字在条形下

Question

在尝试绘制直方图以显示每个值的频率同时绘制该值时，我遇到了一些问题。例如，假设我使用以下代码：

x <- sample(1:10,1000,replace=T)
hist(x,label=TRUE)

结果是条形图上的标签，但在单个条形图中合并1和2的频率。 除了在另外两个中为1和2分开这个栏之外，我还需要将值放在每个栏下面。 例如，使用上面的代码，我的条形右边缘的勾号下面会有数字10，我需要在条形图下方绘制值。

有没有办法在单个直方图中使用hist函数？

提前致谢！

Answer 1

静默调用hist会返回可用于修改绘图的信息。您可以拉出中点和高度，并使用该信息将标签放在您想要的位置。您可以使用pos中的text参数来指定标签相对于该点的位置（感谢@rawr）

x <- sample(1:10,1000,replace=T)

## Histogram
info <- hist(x, breaks = 0:10)
with(info, text(mids, counts, labels=counts, pos=1))