Code
%>%
cens_01reisco left_join(isco88, by = "isco88") %>%
group_by(isco88, Isco88) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
isco88 | Isco88 | Nobs |
---|---|---|
TOTAL | Total | 46028 |
ISCO9 | Elementary occupations | 45683 |
ISCO5 | Service workers and shop and market sales workers | 45555 |
ISCO7 | Craft and related trades workers | 45511 |
ISCO8 | Plant and machine operators and assemblers | 45086 |
ISCO6 | Skilled agricultural and fishery workers | 44587 |
ISCO1 | Legislators, senior officials and managers | 44403 |
ISCO4 | Clerks | 43832 |
ISCO3 | Technicians and associate professionals | 43795 |
ISCO2 | Professionals | 40913 |
ISCO0 | Armed forces | 39378 |
UNK | Unknown | 8270 |