Question

我正在尝试将一些文本添加到与每个条形相同高度的水平条形图的右侧，但是，text（）和axis（）似乎都没有在相应的高度处绘制这个每个酒吧。

这是一个类似的条形图

x <- runif(10, 0,1)
y <- matrix(c(x, 1-x), nrow=2, ncol=10, byrow=TRUE)
barplot(y, horiz=TRUE, beside=FALSE, names.arg=seq(1,10,1), las=1, xlim=c(0, 1.2))

这两个选项都没有正确对齐，缩放如何在这里工作？

axis(4, at=seq(1,10,1), labels=seq(1,10,1))
text(1.1, seq(1,10,1), labels=seq(1, 10, 1))

Answer 1

通过查阅barplot的文档，您可以看到它有一个不可见的返回值：条形的中点。您可以使用它们向绘图中添加其他信息。

x <- runif(10, 0,1) 
y <- matrix(c(x, 1-x), nrow=2, ncol=10, byrow=TRUE) 
bp <- barplot(y, horiz=TRUE, beside=FALSE, names.arg=seq(1,10,1), las=1, 
              xlim=c(0, 1.2)) 
text(x, bp, signif(x,2), pos=4)
bp

在R，y轴以不同比例添加文本到水平条形图？

1 个答案: