计算绘图上文本的边界框，包括基线以下的文本

Question

我试图在条形图中的水平条上绘制单词，因此单词的顶部和底部只是刷条形图的顶部和底部。这归结为能够为包括下行和上升的文本计算紧密边界框。例如，考虑

plot( 1:10, 1:10 )
text( 3, 7, "sample", adj=c(0,0), cex=3 )
sh = strheight( "sample" )
abline( h=c( 7, 7+3*sh  ) )

注意顶线恰好击中“l”。 “p”通过底线下降。

如何在这里计算出合适的底线？

或者，如何绘制文本以填充给定的高度，如下所示：

plot( 1:10, 1:10 )
ht = 2
abline( h=c( 7, 7+ht ) )
sh = strheight( "sample" )
sh
text( 3, 7, "sample", adj=c(0,0), cex=2/sh )

这个问题与找到边界框有关（见related stack overflow question）。由于下降问题，似乎没有相同的解决方案似乎没有完全发挥作用。

Answer 1

尝试

plot( 1:10, 1:10 )
text(3, 7, ex <- expression("sample"), adj=c(0,0), cex=3 ) 
sh <- strheight(ex)
abline( h=c( 7, 7+3*sh  ) )