Fatal编程技术网
  • r/
  • R 在substitute（）表达式中添加换行符

R 在substitute（）表达式中添加换行符

r

R 在substitute（）表达式中添加换行符,r,expression,newline,substitution,R,Expression,Newline,Substitution,我试图用回归模型中的相关数据在ggplot中注释一个图。 我已经按照建议进行了修改，试图在绘图的换行符中添加两个附加项。 这是我尝试的一个新功能： lm_eqn = function(m){ eq <- substitute(italic(y) == a %.% italic(x)^b*","~~italic(r)^2~"="~r2*","~~italic(n)~"="~nn*","~~

我试图用回归模型中的相关数据在ggplot中注释一个图。 我已经按照建议进行了修改，试图在绘图的换行符中添加两个附加项。 这是我尝试的一个新功能：

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));                 
}

lm_eqn=函数（m）{

eq
\n
不能用于
plotmath
表达式。您可以将表达式分成两部分，然后使用
annotate
将表达式添加到所需的位置。或者，使用
Top
。查看此帖子->

即使删除了
\n
\n，您的代码也不会在
R
中运行。请整理您的帖子。