R package ggpmisc можно использовать для отображения уравнения модели lm и модели poly на ggplot2 (см. здесь для справки), Подумайте, как показать результаты моделирования модели nls на ggplot2 с помощью ggmisc. Ниже мой MWE.
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)
Вдохновленный сообщением, которое вы связали. Используйте geom_text, чтобы добавить метку после извлечения параметров.
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)