Zeige Gleichung NLS-Modell mit ggpmisc

Question

R Paket ggpmisc auf ggplot2 (See here als Referenz) zeigen Gleichung lm Modell und poly Modell verwendet werden. Frage mich, wie man nls Modellgleichungsergebnisse auf ggplot2 unter Verwendung ggmisc zeigt. Unten ist mein MWE. Jede Hilfe wird sehr geschätzt. Danke

library(ggpmisc) 
args <- list(formula = y ~ k * e^x, 
      start = list(k = 1, e = 2)) 
ggplot(mtcars, aes(wt, mpg)) + 
    geom_point() + 
    stat_fit_augment(method = "nls", 
        method.args = args) 

Answer 1

Inspiriert von der Post, die Sie verbunden haben. Verwenden Sie geom_text, um die Bezeichnung nach dem Extrahieren von Parametern hinzuzufügen.

nlsFit <- 
    nls(formula = mpg ~ k * e^wt, 
     start = list(k = 1, e = 2), 
     data = mtcars) 

nlsParams <- 
    nlsFit$m$getAllPars() 

nlsEqn <- 
    substitute(italic(y) == k %.% e^italic(x), 
      list(k = format(nlsParams['k'], digits = 4), 
        e = format(nlsParams['e'], digits = 2))) 

nlsTxt <- 
    as.character(as.expression(nlsEqn)) 

ggplot(mtcars, aes(wt, mpg)) + 
    geom_point() + 
    stat_fit_augment(method = "nls", 
        method.args = args) + 
    geom_text(x = 5, y = 30, label = nlsTxt, parse = TRUE)