试图取消扫帚：：增强数据的嵌套，但是R“无法投射”

Question

我无法在此处复制数据，但我希望我犯了一个明显的错误。我试图从我使用purrr :: map拟合的所有模型中获得残差。我的代码如下：

  df %>%
  group_by(group) %>%
  nest() %>%
  mutate(model = map(data, fit_mod),
         model_data = map(model, broom::augment)) %>%
  ungroup()%>%
  unnest(c(data, model_data))

我收到与模型中一个系数的标题有关的错误：

  

错误：无法投射model_data$poly.Actual_Population..2..raw...TRUE.    到model_data$poly.Actual_Population..2..raw...TRUE.。

我如何才能将那些残差从那里拉出来？我想检查一下我的模特。