R基础绘图中text()实现title(line=-x)等效文本定位的方法

要在text()中实现类似title(line = -x)的精确行偏移，同时支持水平方向的em单位偏移，核心是把相对单位（行高、em）转换成数据坐标下的偏移量，具体实现如下：

核心思路 #

• 垂直方向：一行文本的高度可以用strheight("M")获取（line单位对应一行文本的高度），向上偏移x行就给目标y坐标加上x * strheight("M")
• 水平方向：一个em单位对应大写M的宽度，用strwidth("M")获取，偏移n个em就给目标x坐标加上n * strwidth("M")

代码示例 #

基础垂直偏移（支持非整数行） #

plot(0:2, 0:2, type = "n", ann = FALSE)
text(1, 1, "(1, 1)", col = 2)
# 计算1.5行的垂直偏移量
vert_offset <- 1.5 * strheight("M")
# 在(1,1)上方1.5行位置添加文本
text(1, 1 + vert_offset, "Above (1, 1) by 1.5 lines", font = 2)

同时添加水平em偏移 #

plot(0:2, 0:2, type = "n", ann = FALSE)
text(1, 1, "(1, 1)", col = 2)
# 计算垂直和水平偏移量
vert_offset <- 1.2 * strheight("M")
horiz_offset <- 1.8 * strwidth("M") # 1.8个em单位的水平偏移
# 偏移后添加文本
text(1 + horiz_offset, 1 + vert_offset, "1.2 lines up & 1.8 em right", font = 2, col = "blue")

这种方法能灵活处理任意整数/非整数的偏移量，完全替代换行符的临时方案，且偏移量会自动适配当前绘图的字体和字号。

内容的提问来源于stack exchange，提问作者Martin Smith