我试图在条形图的水平条上绘制单词，因此单词的顶部和底部只是刷到条形图的顶部和底部。这归结为能够计算包含下降部分和上升部分的文本的紧密边界框。例如，考虑
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)。由于下降问题，它似乎不一样，那里的解决方案似乎不能完全起作用。
最佳答案
尝试
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 ) )
关于r - 计算绘图上文本的边界框，包括基线以下的文本，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/27842686/