Code
tibble(LAST_DOWNLOAD = as.Date(file.info("~/Library/Mobile\ Documents/com~apple~CloudDocs/website/data/eurostat/lc_ncost_r2.RData")$mtime)) %>%
print_table_conditional()
LAST_DOWNLOAD |
---|
2024-11-21 |
Data - Eurostat
tibble(LAST_DOWNLOAD = as.Date(file.info("~/Library/Mobile\ Documents/com~apple~CloudDocs/website/data/eurostat/lc_ncost_r2.RData")$mtime)) %>%
print_table_conditional()
LAST_DOWNLOAD |
---|
2024-11-21 |
LAST_COMPILE |
---|
2024-11-22 |
%>%
lc_ncost_r2 group_by(time) %>%
summarise(Nobs = n()) %>%
arrange(desc(time)) %>%
head(1) %>%
print_table_conditional()
time | Nobs |
---|---|
2020 | 972894 |
%>%
lc_ncost_r2 left_join(lcstruct, by = "lcstruct") %>%
group_by(lcstruct, Lcstruct) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
lcstruct | Lcstruct | Nobs |
---|---|---|
D01 | Total labour costs (excluding apprentices) | 1391324 |
D111 | Wages and salaries (excluding apprentices) | 1389463 |
D1111 | Direct remuneration, bonuses and allowances | 1389376 |
%>%
lc_ncost_r2 left_join(sizeclas, by = "sizeclas") %>%
group_by(sizeclas, Sizeclas) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
sizeclas | Sizeclas | Nobs |
---|---|---|
GE10 | 10 employees or more | 639045 |
10-49 | From 10 to 49 employees | 625993 |
50-249 | From 50 to 249 employees | 617415 |
250-499 | From 250 to 499 employees | 557684 |
500-999 | From 500 to 999 employees | 515240 |
GE1000 | 1 000 employees or more | 487616 |
TOTAL | Total | 381204 |
LT10 | Fewer than 10 employees | 345966 |
%>%
lc_ncost_r2 left_join(nace_r2, by = "nace_r2") %>%
group_by(nace_r2, Nace_r2) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
%>%
lc_ncost_r2 left_join(unit, by = "unit") %>%
group_by(unit, Unit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
unit | Unit | Nobs |
---|---|---|
TOTAL | Total | 1106059 |
P_SAL_M | Per employee in full-time equivalents, per month | 1022271 |
P_SAL_Y | Per employee in full-time equivalents, per year | 1022271 |
P_SAL_H | Per employee in full-time equivalents, per hour | 1019562 |
%>%
lc_ncost_r2 left_join(geo, by = "geo") %>%
group_by(geo, Geo) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
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_ncost_r2 group_by(time) %>%
summarise(Nobs = n()) %>%
print_table_conditional()
time | Nobs |
---|---|
2008 | 993214 |
2012 | 1143513 |
2016 | 1060542 |
2020 | 972894 |