如何在R的ggplot2图形注释中实现多行等号对齐？

方案1：使用plotmath结合phantom手动对齐 #

atop()仅支持上下居中对齐，无法实现等号对齐，我们可以通过phantom()生成空白占位符，让每行左侧文本宽度一致，从而使等号位置对齐。

示例代码：

library(ggplot2)

example.data <- data.frame(x = rnorm(1000,0,1))
line1 <- as.character(format(round(mean(example.data$x), digits = 2), nsmall = 2)) # 均值
line2 <- as.character(format(round(sd(example.data$x), digits = 2), nsmall = 2)) # 标准差

ggplot() + 
    geom_histogram(data = example.data, aes(x = x), binwidth = 1)+
    xlim(-3, 3) +
    annotate(
        geom = "text",
        x = 2, y = 300,
        # 用phantom("D")让M的宽度与SD一致，实现等号对齐
        label = paste0(
            'atop(',
            'italic(M) * phantom("D") == "', line1, '", ',
            'italic(SD) == "', line2, '"',
            ')'
        ),
        parse = TRUE
    )

原理：phantom("D")会生成与字符"D"宽度相同的空白，让italic(M)的总宽度和italic(SD)匹配，两行的等号自然对齐。

方案2：使用gridtext包直接渲染LaTeX align环境 #

如果需要更灵活的LaTeX格式支持，推荐使用gridtext包，它可以直接解析LaTeX的align环境，无需手动调整占位符。

步骤1：安装并加载包

install.packages("gridtext")
library(ggplot2)
library(gridtext)

步骤2：绘图并添加对齐注释

example.data <- data.frame(x = rnorm(1000,0,1))
line1 <- as.character(format(round(mean(example.data$x), digits = 2), nsmall = 2))
line2 <- as.character(format(round(sd(example.data$x), digits = 2), nsmall = 2))

# 构造LaTeX的align环境代码
latex_align <- paste0(
    "\\begin{aligned}",
    "M &= ", line1, "\\\\",
    "SD &= ", line2,
    "\\end{aligned}"
)

ggplot() + 
    geom_histogram(data = example.data, aes(x = x), binwidth = 1)+
    xlim(-3, 3) +
    annotation_custom(
        grob = richtext_grob(
            latex_align,
            parse = TRUE,
            hjust = 0, vjust = 1, # 调整文本对齐方式
            gp = gpar(fontsize = 12) # 设置字体大小
        ),
        xmin = 2, xmax = 2, ymin = 250, ymax = 300 # 调整注释的位置范围
    )

该方案完全复用LaTeX的对齐逻辑，适合复杂的多行公式或注释场景。

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