Я хочу извлечь линейные модели, заданные ggplot2. Есть ли лучший способ извлечь эти модели вместо повторного запуска отдельной модели отдельно?
Ниже приведен воспроизводимый код. Однако обратите внимание, что пакет Ecdat довольно большой.
library(ggplot2);library(Ecdat)
data('Housing') # from Ecdat
ggplot(Housing, aes(lotsize, price, color = airco, fill = airco)) +
geom_point() +
geom_smooth(method = 'lm') +
ggtitle('Price (lotsize)') + facet_grid( . ~ airco, margins = T) + theme_classic()
Ниже приведен визуальный вывод ggplot. Вы можете заметить, что у нас есть 3 разных модели ниже. Я хотел бы извлечь 3 модели для дальнейшего анализа, а не перезапускать их с помощью lm ().
Спасибо!
