ggplot разные формулы lm

Question

У меня есть список с несколькими lm формулами:

y ~ I(x^0.5), y ~ I(log(x)), ...)

Я ищу способ построить каждый из них с помощью ggplot2, есть идеи, как это сделать? (те же данные, меняются только формулы).

Пример:

Formulas <- list("y = a + bx" = as.formula("mpg ~ disp"),
                 "y = a + bx^0.5" = as.formula("mpg ~I(disp^0.5)"),
                 "y = a + b(logx)" = as.formula("mpg ~I(log(disp))"),
                 "y = a + b(logx)^0.5" = as.formula("mpg ~I(log(disp)^0.5)"))

models <- lapply(Formulas, lm, data = mtcars)

Answer 1

Вот общая идея сделать это с картой ...

library(tidyverse)

models = list(y ~ I(x^0.5), y ~ I(log(x)))

tibble(x=1:100) %>% 
  mutate(y=log(x) + rnorm(n(), 0, 0.1)) %>% 
  ggplot(aes(x=x, y=y)) + 
    geom_point() + 
    map(models, ~ geom_smooth(method='lm', formula=.))