Code
PTRCC %>%
left_join(PTRCC_var$FAMILY %>%
setNames(c("FAMILY", "Family")), by = "FAMILY") %>%
group_by(FAMILY, Family) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| FAMILY | Family | Nobs |
|---|---|---|
| 2EARNERC2C_67AW | Couple with 2 children - partner's earnings: 67% of the AW | 96320 |
| 2EARNERC2C_AW | Couple with 2 children - partner's earnings: AW | 96320 |
| SINGLE2C | Single person with 2 children | 96320 |
| 2EARNERC2C_MIN | Couple with 2 children - partner's earnings: Minimum Wage | 79680 |