Code
%>%
cens_01rhsize left_join(n_person, by = "n_person") %>%
group_by(n_person, N_person) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
n_person | N_person | Nobs |
---|---|---|
2 | 2 persons | 48161 |
3 | 3 persons | 48143 |
4 | 4 persons | 48119 |
5 | 5 persons | 48094 |
GE6 | 6 persons or more | 48044 |
1 | 1 person | 45503 |
UNK | Unknown | 2460 |