Code
%>%
nama_10r_2emhrw left_join(unit, by = "unit") %>%
group_by(unit, Unit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
unit | Unit | Nobs |
---|---|---|
THS | Thousand | 260118 |
Data - Eurostat
%>%
nama_10r_2emhrw left_join(unit, by = "unit") %>%
group_by(unit, Unit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
unit | Unit | Nobs |
---|---|---|
THS | Thousand | 260118 |
%>%
nama_10r_2emhrw left_join(wstatus, by = "wstatus") %>%
group_by(wstatus, Wstatus) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
wstatus | Wstatus | Nobs |
---|---|---|
EMP | Employed persons | 130071 |
SAL | Employees | 130047 |
%>%
nama_10r_2emhrw left_join(nace_r2, by = "nace_r2") %>%
group_by(nace_r2, Nace_r2) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
nama_10r_2emhrw left_join(geo, by = "geo") %>%
group_by(geo, Geo) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {