Code
tibble(LAST_DOWNLOAD = as.Date(file.info("~/Library/Mobile\ Documents/com~apple~CloudDocs/website/data/eurostat/lc_an_struc.RData")$mtime)) %>%
print_table_conditional()
LAST_DOWNLOAD |
---|
2024-10-08 |
Data - Eurostat
tibble(LAST_DOWNLOAD = as.Date(file.info("~/Library/Mobile\ Documents/com~apple~CloudDocs/website/data/eurostat/lc_an_struc.RData")$mtime)) %>%
print_table_conditional()
LAST_DOWNLOAD |
---|
2024-10-08 |
LAST_COMPILE |
---|
2024-11-22 |
%>%
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 |