在 R 的直方图中正确标记 x 轴

Question

我尝试正确命名 x 轴。

hist(InsectSprays$count, col='pink', xlab='Sprays', labels=levels(InsectSprays$spray), xaxt='n')
axis(1, at=unique(InsectSprays$spray), labels=levels(InsectSprays$spray))

但这会产生

我想要字母位于条形下方而不是顶部。

Answer 1

您必须在直方图箱的中点绘制标签。如果您想删除轴并只保留字母，则会padj将字母移近您刚刚删除的轴。

h <- hist(InsectSprays$count, plot = FALSE)

plot(h, xaxt = "n", xlab = "Insect Sprays", ylab = "Counts",
     main = "", col = "pink")
axis(1, h$mids, labels = LETTERS[1:6], tick = FALSE, padj= -1.5)