相关曲线方程注释的问题

Question

我正在使用此方程式在图形上注释我的相关曲线的方程式。

equation = function(x) {

  lm_coef <- list(a = round(coef(x)[1], digits = 2),

                  b = round(coef(x)[2], digits = 2),

                  r2 = round(summary(x)$r.squared, digits = 2));

  lm_eq <- substitute(italic(y) == a + b %.% italic(x)*","~~italic(R)^2~"="~r2,lm_coef)   as.character(as.expression(lm_eq));                 
}

但是当我用ggplot2（annotate("text", x = , y = , label = equation(fit), parse = TRUE)）调用它时 在图上，截距和曲线系数报告为

y = c(intercept) + c(coefficient).x

您有获取建议吗

y = intercept + coefficient.x

我觉得这与R中的最新更新有关，以前该功能运行良好！