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 |