r - SEPARATE LINES グラフに回帰直線方程式と R2 を追加

Question

数年前、ポスターは、以下のリンクで ggplot グラフに回帰直線方程式と R2 を追加する方法を尋ねました。

グラフに回帰直線の式と R2 を追加する

一番の解決策はこれでした：

lm_eqn <- function(df){
    m <- lm(y ~ x, df);
    eq <- substitute(italic(y) == a + b %.% italic(x)*","~~italic(r)^2~"="~r2, 
         list(a = format(coef(m)[1], digits = 2), 
              b = format(coef(m)[2], digits = 2), 
             r2 = format(summary(m)$r.squared, digits = 3)))
    as.character(as.expression(eq));                 
}

p1 <- p + geom_text(x = 25, y = 300, label = lm_eqn(df), parse = TRUE)

私はこのコードを使用していますが、うまく機能します。ただし、コンマで区切るのではなく、このコードに R2 値と回帰直線の式を別々の行に含めることができるかどうか疑問に思っていました。

このような代わりに

このようなもの

よろしくお願いします。