R 从ggplot2中提取facetedn lm模型

我想提取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（）重新运行它们

谢谢

---

这似乎是设计出来的。然而，我认为应该有一种方法来获取“后端”并提取模型。看看哈德利说了些什么。嗨@NelsonGon，谢谢你的链接，我想从哈德利的评论来看，这不是他们会做的事情。这样就可以了，我只是单独重新运行模型来获得系数。我应该结束这个问题还是保持原样？我想你应该保持原样。很可能有人已经想到了一种方法来实现它，或者有人可能会遇到它，并认为它将是一种很酷的实现方式。然而，我认为应该有一种方法来获取“后端”并提取模型。看看哈德利说了些什么。嗨@NelsonGon，谢谢你的链接，我想从哈德利的评论来看，这不是他们会做的事情。这样就可以了，我只是单独重新运行模型来获得系数。我应该结束这个问题还是保持原样？我想你应该保持原样。很可能有人已经想到了一种方法来实现它，或者有人遇到了它，并且认为它将是一种很酷的实现方式。