Structure of labour cost by NACE Rev. 2 activity - % of total cost - lc_nstruc_r2

Name: Structure of labour cost by NACE Rev. 2 activity - % of total cost
Creator: François Geerolf
License: https://creativecommons.org/licenses/by/4.0/

Data - Eurostat

Author

François Geerolf

Structure

Spain, Netherlands, Portugal, Hungary, Romania

Wages and Salaries (D1, % of Total Labour Cost)

Code

lc_nstruc_r2 |>
  filter(geo %in% c("ES", "NL", "PT", "HU", "RO"),
         sizeclas == "TOTAL",
         nace_r2 == "B-S_X_O",
         lcstruct == "D1") |>
  year_to_date() |>
  add_flag_color("Geo") |>
  mutate(values = values/100) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) +
  theme_minimal() + scale_color_identity() + add_flags +
  scale_x_date(breaks = as.Date(paste0(seq(2008, 2100, 2), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("Compensation of employees (% of total labour cost)") +
  scale_y_continuous(labels = scales::percent_format(accuracy = 1))

Non-Wage Cost Components

EU27, Whole Economy

Code

lc_nstruc_r2 |>
  filter(geo == "EU27_2020",
         sizeclas == "TOTAL",
         nace_r2 == "B-S_X_O",
         lcstruct %in% c("D2", "D3", "D4", "D5")) |>
  year_to_date() |>
  mutate(values = values/100) |>
  ggplot() + geom_line(aes(x = date, y = values, color = Lcstruct)) +
  theme_minimal() +
  theme(legend.position = c(0.75, 0.8),
        legend.title = element_blank()) +
  scale_x_date(breaks = as.Date(paste0(seq(2008, 2100, 2), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("% of total labour cost") +
  scale_y_continuous(labels = scales::percent_format(accuracy = 0.1))

Latest Survey Year by Cost Component

Code

latest_y <- lc_nstruc_r2 |>
  filter(sizeclas == "TOTAL", nace_r2 == "B-S_X_O", lcstruct == "D1", !is.na(values)) |>
  summarise(m = max(time)) |>
  pull(m)

lc_nstruc_r2 |>
  filter(geo %in% c("EU27_2020", "ES", "NL", "PT", "HU", "RO"),
         sizeclas == "TOTAL",
         nace_r2 == "B-S_X_O",
         lcstruct %in% c("D1", "D2", "D3", "D4", "D5"),
         time == latest_y) |>
  select(Geo, lcstruct, values) |>
  spread(lcstruct, values) |>
  print_table_conditional()

Geo	D1	D2	D3	D4	D5
Hungary	97.73	0.19	1.93	0.24	0.09
Netherlands	96.96	1.34	2.11	0.13	0.54
Portugal	99.23	0.20	0.60	NA	0.03
Romania	99.06	0.09	0.31	0.56	0.02
Spain	99.36	0.21	0.51	NA	0.08