嵌套的 tibbles:从回归打印结果

Question

我正在尝试打印嵌套 tibble 回归的结果。

数据如下所示：

# 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))等的变体，但没有运气。如何将回归的结果打印到控制台，例如 ( summary(myregmodel) ( ？

简单地做r$Reg_sum给了我回归输出，但我想先过滤。

Answer 1

标准方法是pull列

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

---

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

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

---

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

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