嵌套小标题：从回归打印结果

Question

我正在尝试从嵌套的小步回归中打印结果。

数据如下：

# A tibble: 3 x 2
  Quintiles  Reg_sum         
  <chr>      <list>          
1 quintile_5 <S3: summary.lm>
2 quintile_1 <S3: summary.lm>
3 quintile_4 <S3: summary.lm>

所以我想按五分位数过滤并打印回归结果。

r %>%
  filter(Quintiles == "quintile_5") %>%
  print(Reg_sum)

我尝试使用print(summary(Reg_sum))等对上述方法进行了改进，但没有好运。如何将（{{1）}之类的回归结果打印到控制台上？

简单地做summary(myregmodel)给了我回归输出，但是我想先过滤。

Answer 1

标准方法是pull列

r %>%
    filter(Quintiles == "quintile_5") %>% 
    pull(Reg_sum)

---

但是，基本R提取$也可以完成

r %>%
    filter(Quintiles == "quintile_5")  %>%
    .$Reg_sum

---

如果我们需要name，请在set_names列之前使用pull

r %>%
    filter(Quintiles == "quintile_5") %>%
    mutate(Reg_sum = set_names(Reg_sum, Quintiles)) %>% 
    pull(Reg_sum)