вложенные тиблы: печать результатов регрессий

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, тогда используйте set_names перед pull в столбце

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