R绘图：图例符号与对应文本第一行的垂直对齐问题

针对这个问题，这里提供两种实用的解决方案：

方法一：通过计算行高自动调整对齐 #

利用strheight()函数计算文本行高，结合legend的yjust参数调整符号的垂直位置，使其与多行文本的第一行对齐：

plot(table(iris$species))
# 计算单行文本的高度
single_line_height <- strheight("A")
# 计算多行文本的总高度
multi_line_height <- strheight("long\ntext")
# 调整yjust参数，让符号对齐文本第一行顶部
legend('right', 
       c('A', 'B', 'long\ntext'), 
       fill = colors(3),
       yjust = 0.5 + single_line_height/(2*multi_line_height))

方法二：手动拆分多行文本添加 #

将多行文本拆分为单独的行，先添加带符号的第一行标签，再用text()函数补充第二行文本，确保符号与第一行严格对齐：

plot(table(iris$species))
# 添加包含前两个标签和第三个标签第一行的图例
leg_obj <- legend('right', 
                  c('A', 'B', 'long'), 
                  fill = colors(3),
                  bty = 'n')
# 在第三个标签下方添加第二行文本
text(leg_obj$text$x[3], leg_obj$text$y[3] - strheight("text"), "text", pos = 4)

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