Code
%>%
icw_sr_13 left_join(deg_urb, by = "deg_urb") %>%
group_by(deg_urb, Deg_urb) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
deg_urb | Deg_urb | Nobs |
---|---|---|
DEG1 | Cities | 84 |
DEG3 | Rural areas | 84 |
TOTAL | Total | 84 |
DEG2 | Towns and suburbs | 83 |