如何找到正确的坐标以使标签与条形图对齐？

Question

我正在创建包含几个不同图形元素的图形，使用layout()定义绘图区域。我有一个单独的标签区域，需要与相邻绘图区域中小节上的条对齐。

我可以猜测在哪里绘制标签，以便它们对齐-但是这些位置的数量会有所不同，因此这不是理想的解决方案。

这是我要执行的操作的一个示例：

labs <- paste("Some text", letters[1:9])
datA <- table(sample(letters[1:9], size=200, replace=TRUE, prob=rep(c(0.1,0.2,0.3),3)))
layout(matrix(c(1,2,3,3), 2, 2, byrow=TRUE), widths=c(1,2), heights=c(6,1))
plot.new()
text(x=1, y=seq(0.05,1.0,0.111), labels=labs, adj=1, cex=1.4)
barplot(datA, horiz=TRUE, las=1, axes=F, yaxt="n")

如何找到正确的值来绘制标签？

（我知道看起来像可以通过使用barplot绘制标签来解决-这对于我正在做的事情不是可行的解决方案）。

Answer 1

barplot的输出给出的高度如下：

bp <- barplot(datA, horiz=TRUE, las=1, axes=F, yaxt="n")
text(0*bp, bp, labs, col = "blue", pos = 4)