如何在ggplot中实现多行注释？无法使用ggpmisc且回归强制过原点

方法1：使用atop()构建合法的plotmath表达式 #

你之前用atop()报错是因为拼接字符串时的语法错误，正确的做法是直接将两个单行表达式传入atop()，不需要额外添加多余的表达式符号。修改后的代码如下：

library(tidyverse)
df <- tibble(x=rnorm(10,10,3),
             y=rnorm(10,10,3)+exp(seq(1,10,1)))

a <- "italic(y) == \"53\" * italic(x)"
r2 <- "italic(r)^2 == \"0.732\""

ggplot(df) +
  geom_point(aes(x=x,y=y)) +
  ggplot2::annotate('text',
                    x = 0, y = 15000,
                    label = paste0('atop(', a, ', ', r2, ')'),
                    parse = TRUE,
                    hjust = -1)

这里的核心是让atop()直接包裹两个合法的plotmath表达式字符串，parse时会自动解析为两行文本。

方法2：多次调用annotate()分别添加每行注释 #

如果觉得atop()的排版不够灵活，可以通过多次调用annotate()，调整每行的y坐标来实现多行效果，这种方法更直观，也不容易出错：

ggplot(df) +
  geom_point(aes(x=x,y=y)) +
  # 第一行注释
  ggplot2::annotate('text',
                    x = 0, y = 15000,
                    label = a,
                    parse = TRUE,
                    hjust = -1) +
  # 第二行注释，y坐标略低于第一行
  ggplot2::annotate('text',
                    x = 0, y = 13000,
                    label = r2,
                    parse = TRUE,
                    hjust = -1)

你可以根据需要调整每行的y坐标，控制行间距，适合需要自定义排版的场景。

方法3：使用str_wrap()结合parse=FALSE（适合非公式文本） #

如果你的注释不需要解析为公式（比如纯文本多行），可以用str_wrap()手动换行，关闭parse参数：

# 示例：纯文本多行注释
text <- paste("回归方程：y = 53x", "R² = 0.732", sep = "\n")

ggplot(df) +
  geom_point(aes(x=x,y=y)) +
  ggplot2::annotate('text',
                    x = 0, y = 15000,
                    label = text,
                    parse = FALSE,
                    hjust = -1)

但注意这种方法不支持plotmath语法，适合纯文本注释场景。

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