R语言中含数学表达式的多行图例条目垂直对齐问题

R语言基础绘图中的legend()函数在处理包含数学表达式的多行标签时，会出现符号（如水平线）与标签无法正确对齐的问题——默认情况下符号会和多行文本的中间位置对齐，而非我们期望的第一行文本，调整参数adj也无法解决这个问题。

错误示例代码：

plot(0, 0, type = "n")

legend("topleft", c(expression(paste(x[i], "bla bla\n... bla, bla")), "y"), 
       col = 1, lty = 1:2)
legend("topright", c(expression(paste(x[i], "bla bla\n... bla, bla")), "y"), 
       col = 2, lty = 1:2, adj = c(0, 2))

你提到已经通过多次调用legend()模拟出了预期效果，但这只是粗糙的权宜之计：

plot(0, 0, type = "n")
legend("topleft", c(expression(x[i]), "... bla, bla", "y"), col=c(1,"white",1), lty=c(1,NA,2))
legend("topleft", c("    bla, bla"), col=NA, lty=1, bty="n")

以下是两种更合理的正式解决方案：

方案1：手动构建图例（基础绘图） #

绕过legend()的限制，直接用基础绘图函数手动绘制符号和文本，精准控制对齐位置：

plot(0, 0, type = "n", xlim = c(-2, 2), ylim = c(-1, 1))

# 定义图例的基准位置
legend_base_x <- -1.8
legend_base_y <- 0.8
line_length <- 0.2
line_gap <- 0.3
text_gap <- 0.15

# 第一个图例项：带数学表达式的多行文本
# 绘制水平线
lines(x = c(legend_base_x, legend_base_x + line_length), 
      y = rep(legend_base_y, 2), col = 1, lty = 1)
# 第一行文本（含数学表达式）
text(legend_base_x + line_length + 0.1, legend_base_y, 
     expression(x[i] ~ "bla bla"), pos = 4, col = 1)
# 第二行文本（手动缩进对齐）
text(legend_base_x + line_length + 0.1, legend_base_y - text_gap, 
     "... bla, bla", pos = 4, col = 1)

# 第二个图例项：单行文本
lines(x = c(legend_base_x, legend_base_x + line_length), 
      y = legend_base_y - line_gap, col = 1, lty = 2)
text(legend_base_x + line_length + 0.1, legend_base_y - line_gap, 
     "y", pos = 4, col = 1)

这种方式完全自定义每个元素的位置，确保符号与第一行文本严格对齐，适合需要精准控制的场景。

方案2：使用ggplot2替代基础绘图 #

ggplot2的图例系统对多行标签和数学表达式的支持更完善，默认就能实现符号与第一行文本对齐：

library(ggplot2)

# 构造示例数据
df <- data.frame(
  x = 0,
  y = 0,
  group = factor(
    c("x[i] bla bla\n... bla, bla", "y"),
    levels = c("x[i] bla bla\n... bla, bla", "y")
  )
)

ggplot(df, aes(x, y, color = group, linetype = group)) +
  geom_point(size = 3) +
  # 设置颜色和线型
  scale_color_manual(values = c("black", "black")) +
  scale_linetype_manual(values = c(1, 2)) +
  # 隐藏图例标题
  labs(color = NULL, linetype = NULL) +
  # 解析数学表达式（plotmath语法）
  scale_x_continuous(limits = c(-2, 2)) +
  scale_y_continuous(limits = c(-1, 1)) +
  theme_classic()

如果需要更复杂的数学表达式，可直接使用plotmath语法，ggplot2会自动解析并保持正确对齐。

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