r - 每组构建多个模型

Question

我想对我的数据进行分组，然后每组构建两个线性模型，收集结果，并使用扫帚来总结模型参数，但是我遇到了一个我似乎无法理解的无限递归错误。这是代码：

library(dplyr)
library(tidyr)
library(broom)

mtcars %>% 
group_by(am) %>% 
dplyr::do(simple_fit =  lm(mpg ~ disp, data = .), 
          complex_fit = lm(mpg ~ disp + hp, data = .)) %>% 
ungroup()
gather(model_type, model, -am) %>% 
broom::tidy(model)

导致此错误：

Error: evaluation nested too deeply: infinite recursion / options(expressions=)?

这个例子中只有 4 个模型，所以我不明白为什么我会遇到这么深的嵌套循环？

Answer 1

我在 github 上找到了一条评论，在这里解决了我的问题

固定版本代码如下：

mtcars %>% 
group_by(am) %>% 
dplyr::do(simple_fit = lm(mpg~disp, data = .), 
          complex_fit = lm(mpg ~ disp + hp, data = .)) %>% 
ungroup() %>% 
gather(model_type, model, -am) %>% 
rowwise() %>% 
broom::tidy(model)