r - 在substitute() 表达式中添加换行符

Question

我正在尝试使用回归模型中的相关数据在 ggplot 中注释一个图。
我遵循了建议 in this SO post并尝试修改该函数以在 中有几个额外的项目换行在情节中。
这是我对新功能的尝试:

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

它产生预期的输出:全部在一行中。但我想将文本分成两行，第二行以 italic(n)= 开头。 .但是如果我介绍一个 \n , 查找 \n 时报错.如果我在引号内引入\n: "\n"然后它似乎被忽略并且文本保留在一行中。我还没有找到任何关于如何在这样的表达式中引入换行符的引用。您的帮助将不胜感激。
谢谢。
编辑:在@Tim 发表评论后，我提出了一个重写的代码和调整后的问题。

Answer 1

\n不能用于 plotmath表达式。您也许可以将表达式分为两部分，然后使用 annotate将表达式添加到您想要的位置。或者，使用 atop .看看这篇文章->
Line break in expression()?