R 嵌套TIBLES：打印回归结果

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

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

数据如下所示：

# 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>

我尝试了上面的一种变体，使用

print（summary（Reg_sum））

等，但运气不好。如何将回归结果打印到控制台，如（

summary（myregmodel）

）

---

只需执行

r$Reg\u sum

即可得到回归输出，但我想先过滤。

标准方法是

拉取列

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

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


但是，也可以进行基本R提取
$

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


如果我们需要
名称
，则在
拖动列之前使用
设置名称

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

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

您可能需要
r%%>%过滤器（五分位数==“五分位数”）%%>%拉取（regu sum）
或
%%>。$regu sum%%>%打印
是！这很有效，谢谢！（两种方法都对全部数据有效）作为旁注：是否可以命名它们来自哪个“五分位数”的回归？请尝试使用
set\u names
更新解决方案，而不是
[[1]]，[[2]]]…[[N]]
？我无法测试您的示例，因为它显示了一些错误。如果基本
r[r$Quintiles==“quintile_5”，“Reg_sum”]
？@M-M，在表达式后加一个
，