Code
tibble(LAST_DOWNLOAD = as.Date(file.info("~/iCloud/website/data/eurostat/lc_an_struc.RData")$mtime)) %>%
print_table_conditional()| LAST_DOWNLOAD |
|---|
| 2026-01-31 |
Data - Eurostat
tibble(LAST_DOWNLOAD = as.Date(file.info("~/iCloud/website/data/eurostat/lc_an_struc.RData")$mtime)) %>%
print_table_conditional()| LAST_DOWNLOAD |
|---|
| 2026-01-31 |
| LAST_COMPILE |
|---|
| 2026-01-31 |
lc_an_struc %>%
group_by(time) %>%
summarise(Nobs = n()) %>%
arrange(desc(time)) %>%
head(1) %>%
print_table_conditional()| time | Nobs |
|---|---|
| 2008 | 767 |
lc_an_struc %>%
left_join(lcstruct, by = "lcstruct") %>%
group_by(lcstruct, Lcstruct) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()| lcstruct | Lcstruct | Nobs |
|---|---|---|
| D11 | Wages and salaries (total) | 5372 |
| D12 | Employers' social contributions (total) | 5372 |
| D2-D4_MD5 | Labour costs other than compensation of employees | 5200 |
| D1111 | Direct remuneration, bonuses and allowances | 4552 |
lc_an_struc %>%
left_join(nace_r1, by = "nace_r1") %>%
group_by(nace_r1, Nace_r1) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()| nace_r1 | Nace_r1 | Nobs |
|---|---|---|
| D | Manufacturing | 1153 |
| F | Construction | 1149 |
| G | Wholesale and retail trade; repair of motor vehicles, motorcycles and personal and household goods | 1146 |
| I | Transport, storage and communication | 1112 |
| J | Financial intermediation | 1112 |
| C-K | Industry and services (except public administration and community services; activities of households and extra-territorial organizations) | 1107 |
| C | Mining and quarrying | 1104 |
| E | Electricity, gas and water supply | 1104 |
| H | Hotels and restaurants | 1104 |
| C-E | Industry (except construction) | 1102 |
| K | Real estate, renting and business activities | 1095 |
| C-F | Industry | 1093 |
| G-K | Services (except public administration and community services; activities of households and extra-territorial organizations) | 1077 |
| G-I | Wholesale and retail trade; hotels and restaurants; transport | 958 |
| J_K | Financial intermediation; real estate | 946 |
| C-O | All NACE activities (except agriculture; fishing; activities of households and extra-territorial organizations) | 729 |
| M | Education | 724 |
| N | Health and social work | 724 |
| O | Other community, social and personal service activities | 724 |
| M-O | Education; Health; Other service activities | 701 |
| L | Public administration and defence; compulsory social security | 532 |
lc_an_struc %>%
left_join(geo, by = "geo") %>%
group_by(geo, Geo) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
mutate(Flag = gsub(" ", "-", str_to_lower(Geo)),
Flag = paste0('<img src="../../bib/flags/vsmall/', Flag, '.png" alt="Flag">')) %>%
select(Flag, everything()) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}lc_an_struc %>%
group_by(time) %>%
summarise(Nobs = n()) %>%
arrange(desc(time)) %>%
print_table_conditional()| time | Nobs |
|---|---|
| 2008 | 767 |
| 2007 | 1659 |
| 2006 | 1783 |
| 2005 | 1819 |
| 2004 | 1866 |
| 2003 | 1681 |
| 2002 | 1765 |
| 2001 | 1723 |
| 2000 | 1668 |
| 1999 | 1409 |
| 1998 | 1397 |
| 1997 | 1373 |
| 1996 | 1306 |
| 1995 | 280 |