| source | dataset | Title | Download | Compile |
|---|---|---|---|---|
| eurostat | nama_10_lp_ulc | Labour productivity and unit labour costs | 2024-10-08 | [2024-11-05] |
| eurostat | earn_mw_cur | Monthly minimum wages - bi-annual data | 2024-10-08 | [2024-11-08] |
| eurostat | ei_lmlc_q | Labour cost index, nominal value - quarterly data | 2024-10-08 | [2024-11-08] |
| eurostat | lc_lci_lev | Labour cost levels by NACE Rev. 2 activity | 2024-10-08 | [2024-11-08] |
| eurostat | lc_lci_r2_q | Labour cost index by NACE Rev. 2 activity - nominal value, quarterly data | 2024-11-04 | [2024-11-08] |
| eurostat | namq_10_lp_ulc | Labour productivity and unit labour costs | 2024-11-04 | [2024-11-05] |
| eurostat | tps00155 | Minimum wages | 2024-10-08 | [2024-11-05] |
| fred | wage | Wage | 2024-11-01 | [2024-11-01] |
| ilo | EAR_4MTH_SEX_ECO_CUR_NB_A | Mean nominal monthly earnings of employees by sex and economic activity -- Harmonized series | 2023-06-01 | [2024-06-20] |
| ilo | EAR_XEES_SEX_ECO_NB_Q | Mean nominal monthly earnings of employees by sex and economic activity -- Harmonized series | 2023-06-01 | [2024-06-20] |
| oecd | AV_AN_WAGE | Average annual wages | 2024-10-24 | [2024-04-16] |
| oecd | AWCOMP | Taxing Wages - Comparative tables | 2023-09-09 | [2024-09-15] |
| oecd | EAR_MEI | Hourly Earnings (MEI) | 2024-04-16 | [2024-04-16] |
| oecd | HH_DASH | Household Dashboard | 2023-09-09 | [2024-09-15] |
| oecd | MIN2AVE | Minimum relative to average wages of full-time workers - MIN2AVE | 2023-09-09 | [2024-09-15] |
| oecd | RMW | Real Minimum Wages - RMW | 2024-03-12 | [2024-09-15] |
| oecd | ULC_EEQ | Unit labour costs and labour productivity (employment based), Total economy | 2024-04-15 | [2024-09-15] |
Labour productivity and unit labour costs
Data - Eurostat
Info
Data on wages
LAST_COMPILE
| LAST_COMPILE |
|---|
| 2024-11-08 |
Last
Code
nama_10_lp_ulc %>%
group_by(time) %>%
summarise(Nobs = n()) %>%
arrange(desc(time)) %>%
head(1) %>%
print_table_conditional()| time | Nobs |
|---|---|
| 2023 | 1669 |
na_item
Code
nama_10_lp_ulc %>%
left_join(na_item, by = "na_item") %>%
group_by(na_item, Na_item) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| na_item | Na_item | Nobs |
|---|---|---|
| RLPR_PER | Real labour productivity per person | 6436 |
| NULC_PER | Nominal unit labour cost based on persons | 6377 |
| NULC_HW | Nominal unit labour cost based on hours worked | 6345 |
| RLPR_HW | Real labour productivity per hour worked | 6284 |
| D1_SAL_PER | Compensation per employee | 5586 |
| D1_SAL_HW | Compensation of employees per hour worked | 5561 |
| EMP_HAB | Total employment (employed persons) per capita | 4722 |
| HW_EMP | Hours worked per employed person | 4600 |
| HW_HAB | Hours worked per capita | 4588 |
| NLPR_PER | Nominal labour productivity per person | 1047 |
| NLPR_HW | Nominal labour productivity per hour worked | 1023 |
unit
Code
nama_10_lp_ulc %>%
left_join(unit, by = "unit") %>%
group_by(unit, Unit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}geo
Code
nama_10_lp_ulc %>%
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 .}na_item: Glance
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR", "DE"),
time == "2019") %>%
year_to_date %>%
left_join(na_item, by = "na_item") %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
select(na_item, Na_item, values, unit, Geo) %>%
mutate(Geo = gsub(" ", "-", str_to_lower(Geo)),
Geo = paste0('<img src="../../bib/flags/vsmall/', Geo, '.png" alt="Flag">')) %>%
spread(Geo, values) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}France
Compare per person
All
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR"),
na_item %in% c("RLPR_PER", "D1_SAL_PER", "NULC_PER"),
unit %in% c("EUR", "I15")) %>%
year_to_date %>%
left_join(na_item, by = "na_item") %>%
group_by(na_item) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
ggplot + theme_minimal() + xlab("") + ylab("Per person") +
geom_line(aes(x = date, y = values, color = Na_item)) +
#scale_color_manual(values = viridis(6)[1:5]) +
theme(legend.position = c(0.26, 0.9),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(100, 1000, 100))
1995-
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR"),
na_item %in% c("RLPR_PER", "D1_SAL_PER", "NULC_PER"),
unit %in% c("EUR", "I15")) %>%
year_to_date %>%
left_join(na_item, by = "na_item") %>%
group_by(na_item) %>%
arrange(date) %>%
filter(date >= as.Date("1995-01-01")) %>%
mutate(values = 100*values/values[1]) %>%
ggplot + theme_minimal() + xlab("") + ylab("Per Person") +
geom_line(aes(x = date, y = values, color = Na_item)) +
#scale_color_manual(values = viridis(6)[1:5]) +
theme(legend.position = c(0.26, 0.9),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(100, 1000, 10))
D1_SAL_HW - Values
All
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR"),
na_item == "D1_SAL_HW",
unit %in% c("EUR", "NAC", "PPS_EU27_2020")) %>%
year_to_date %>%
left_join(unit, by = "unit") %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = Unit)) +
#scale_color_manual(values = viridis(6)[1:5]) +
theme(legend.position = c(0.26, 0.9),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(a= 1, su = "€", p = ""))
1995-
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR"),
na_item == "D1_SAL_HW",
unit %in% c("EUR", "NAC", "PPS_EU27_2020")) %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(unit, by = "unit") %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = Unit, linetype = Unit)) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(a= 1, su = "€", p = ""))
D1_SAL_PER - Index
All
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR"),
na_item == "D1_SAL_PER") %>%
year_to_date %>%
left_join(unit, by = "unit") %>%
group_by(Unit) %>%
arrange(date) %>%
mutate(values = 100*values / values[1]) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = Unit)) +
theme(legend.position = c(0.45, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = c(seq(0, 2000, 100), seq(100, 200, 10)),
labels = scales::dollar_format(a= 1, su = "", p = ""))
1995-
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR"),
na_item == "D1_SAL_PER") %>%
year_to_date %>%
group_by(date) %>%
filter(n() == 5) %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(unit, by = "unit") %>%
group_by(Unit) %>%
mutate(values = 100*values / values[date == as.Date("1995-01-01")]) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees, Per Person (1995 = 100)") +
geom_line(aes(x = date, y = values, color = Unit)) +
theme(legend.position = c(0.45, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(a= 1, su = "", p = ""))
D1_SAL_HW - Index
All
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR"),
na_item == "D1_SAL_HW") %>%
year_to_date %>%
left_join(unit, by = "unit") %>%
group_by(Unit) %>%
arrange(date) %>%
mutate(values = 100*values / values[1]) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = Unit)) +
theme(legend.position = c(0.45, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = c(seq(0, 2000, 100), seq(100, 200, 10)),
labels = scales::dollar_format(a= 1, su = "", p = ""))
1995-
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR"),
na_item == "D1_SAL_HW") %>%
year_to_date %>%
group_by(date) %>%
filter(n() == 5) %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(unit, by = "unit") %>%
group_by(Unit) %>%
mutate(values = 100*values / values[date == as.Date("1995-01-01")]) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees, Per Person (1995 = 100)") +
geom_line(aes(x = date, y = values, color = Unit)) +
theme(legend.position = c(0.45, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(a= 1, su = "", p = ""))
RLPR_PER - Real labour productivity per person
All
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR"),
na_item == "RLPR_PER",
unit %in% c("I10", "I15")) %>%
year_to_date %>%
left_join(unit, by = "unit") %>%
group_by(Unit) %>%
arrange(date) %>%
mutate(values = 100*values / values[1]) %>%
ggplot + theme_minimal() + xlab("") + ylab("Real labour productivity per person") +
geom_line(aes(x = date, y = values, color = Unit)) +
theme(legend.position = c(0.25, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = c(seq(0, 2000, 100), seq(100, 200, 10)),
labels = scales::dollar_format(a= 1, su = "", p = ""))
1995-
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR"),
na_item == "RLPR_PER",
unit %in% c("I10", "I15")) %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(unit, by = "unit") %>%
group_by(Unit) %>%
arrange(date) %>%
mutate(values = 100*values / values[1]) %>%
ggplot + theme_minimal() + xlab("") + ylab("Real labour productivity per person") +
geom_line(aes(x = date, y = values, color = Unit)) +
theme(legend.position = c(0.25, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = c(seq(0, 2000, 100), seq(100, 200, 2)),
labels = scales::dollar_format(a= 1, su = "", p = ""))
D1_SAL_HW - Wage inflation (%)
France, Germany, Italy
All
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR", "DE", "IT"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Nominal unit labour cost based on persons") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
1995-
Values
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR", "DE", "IT", "EA19"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Nominal unit labour cost based on persons") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(4) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
Index = 100
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR", "DE", "IT", "EA19"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
group_by(Geo) %>%
mutate(values = 100*values/values[date == as.Date("1995-01-01")]) %>%
ggplot + theme_minimal() + xlab("") + ylab("Nominal unit labour cost based on persons") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(4) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "", p = "", a = 1))
D1_SAL_PER - Individual Countries
Table, 2019
Code
nama_10_lp_ulc %>%
filter(time == "2019",
na_item == "D1_SAL_PER") %>%
select(geo, unit, values) %>%
spread(unit, values) %>%
left_join(geo, by = "geo") %>%
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(-NAC) %>%
select(Flag, geo, Geo, everything()) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}Germany
All
Code
nama_10_lp_ulc %>%
filter(geo %in% c("DE"),
na_item == "D1_SAL_PER") %>%
year_to_date %>%
left_join(unit, by = "unit") %>%
group_by(Unit) %>%
mutate(values = 100*values / values[date == as.Date("1995-01-01")]) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = Unit)) +
scale_color_manual(values = viridis(6)[1:5]) +
theme(legend.position = c(0.45, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10),
labels = scales::dollar_format(a= 1, su = "", p = ""))
1995-
Code
nama_10_lp_ulc %>%
filter(geo %in% c("DE"),
na_item == "D1_SAL_PER") %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(unit, by = "unit") %>%
group_by(Unit) %>%
mutate(values = 100*values / values[date == as.Date("1995-01-01")]) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = Unit)) +
scale_color_manual(values = viridis(6)[1:5]) +
theme(legend.position = c(0.45, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(a= 1, su = "", p = ""))
Italy
Code
nama_10_lp_ulc %>%
filter(geo %in% c("IT"),
na_item == "D1_SAL_PER") %>%
year_to_date %>%
left_join(unit, by = "unit") %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values / 1000, color = Unit, linetype = Unit)) +
scale_color_manual(values = viridis(6)[1:5]) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(a= 1, su = "k€", p = ""))
Iceland
Code
nama_10_lp_ulc %>%
filter(geo %in% c("IS"),
na_item == "D1_SAL_PER") %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
group_by(unit) %>%
mutate(values = 100*values/values[date == as.Date("2008-01-01")]) %>%
left_join(unit, by = "unit") %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour (2008 = 100)") +
geom_line(aes(x = date, y = values, color = Unit, linetype = Unit)) +
scale_color_manual(values = viridis(6)[1:5]) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2020, 1), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 400, 20),
labels = scales::dollar_format(a= 1, su = "", p = ""))
D1_SAL_HW - Individual Countries
Table, 2019
Code
nama_10_lp_ulc %>%
filter(time == "2019",
na_item == "D1_SAL_HW") %>%
select(geo, unit, values) %>%
spread(unit, values) %>%
left_join(geo, by = "geo") %>%
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(-NAC) %>%
select(Flag, geo, Geo, everything()) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}Eurozone, Greece, Portugal, Spain
Code
nama_10_lp_ulc %>%
filter(geo %in% c("EA", "PT", "EL", "ES"),
na_item == "D1_SAL_HW",
unit == "EUR") %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(4) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 1),
labels = scales::dollar_format(a= 1, su = "€", p = ""))
Germany
All
Code
nama_10_lp_ulc %>%
filter(geo %in% c("DE"),
na_item == "D1_SAL_HW") %>%
year_to_date %>%
left_join(unit, by = "unit") %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = Unit, linetype = Unit)) +
scale_color_manual(values = viridis(6)[1:5]) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(a= 1, su = "€", p = ""))
1995-
Code
nama_10_lp_ulc %>%
filter(geo %in% c("DE"),
na_item == "D1_SAL_HW") %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(unit, by = "unit") %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = Unit, linetype = Unit)) +
scale_color_manual(values = viridis(6)[1:5]) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(a= 1, su = "€", p = ""))
Italy
Code
nama_10_lp_ulc %>%
filter(geo %in% c("IT"),
na_item == "D1_SAL_HW") %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(unit, by = "unit") %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = Unit, linetype = Unit)) +
scale_color_manual(values = viridis(6)[1:5]) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 1),
labels = scales::dollar_format(a= 1, su = "€", p = ""))
Spain
Code
nama_10_lp_ulc %>%
filter(geo %in% c("ES"),
na_item == "D1_SAL_HW") %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(unit, by = "unit") %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = Unit, linetype = Unit)) +
scale_color_manual(values = viridis(6)[1:5]) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 1),
labels = scales::dollar_format(a= 1, su = "€", p = ""))
Greece
Code
nama_10_lp_ulc %>%
filter(geo %in% c("EL"),
na_item == "D1_SAL_HW") %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(unit, by = "unit") %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = Unit, linetype = Unit)) +
scale_color_manual(values = viridis(6)[1:5]) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 1),
labels = scales::dollar_format(a= 1, su = "€", p = ""))
Portugal
Code
nama_10_lp_ulc %>%
filter(geo %in% c("PT"),
na_item == "D1_SAL_HW") %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(unit, by = "unit") %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = Unit, linetype = Unit)) +
scale_color_manual(values = viridis(6)[1:5]) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 1),
labels = scales::dollar_format(a= 1, su = "€", p = ""))
Iceland
All (2008-2019)
Code
nama_10_lp_ulc %>%
filter(geo %in% c("IS"),
na_item == "D1_SAL_HW") %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
group_by(unit) %>%
mutate(values = 100*values/values[date == as.Date("2008-01-01")]) %>%
left_join(unit, by = "unit") %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour (2008 = 100)") +
geom_line(aes(x = date, y = values, color = Unit, linetype = Unit)) +
scale_color_manual(values = viridis(6)[1:5]) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2020, 1), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 400, 20),
labels = scales::dollar_format(a= 1, su = "", p = ""))
D1_SAL_HW, EUR - Compensation of employees per hour worked
France, Germany, Italy
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR", "DE", "IT"),
na_item == "D1_SAL_HW",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(su = "€", p = "", a = 1))
Iceland, Ireland, Denmark
Euro
Code
nama_10_lp_ulc %>%
filter(geo %in% c("IS", "IE", "DK"),
na_item == "D1_SAL_HW",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(su = "€", p = "", a = 1))
NAC
Code
nama_10_lp_ulc %>%
filter(geo %in% c("IS", "IE", "DK"),
na_item == "D1_SAL_HW",
unit == "NAC") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(su = "€", p = "", a = 1))
Luxembourg, Norway, Switzerland
All
Code
nama_10_lp_ulc %>%
filter(geo %in% c("CH", "LU", "NO"),
na_item == "D1_SAL_HW",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(su = "€", p = "", a = 1))
1995-
Code
nama_10_lp_ulc %>%
filter(geo %in% c("CH", "LU", "NO"),
na_item == "D1_SAL_HW",
unit == "EUR") %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(su = "€", p = "", a = 1))
Belgium, Denmark, Iceland
All
Code
nama_10_lp_ulc %>%
filter(geo %in% c("IS", "BE", "DK"),
na_item == "D1_SAL_HW",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(su = "€", p = "", a = 1))
1995-
Code
nama_10_lp_ulc %>%
filter(geo %in% c("IS", "BE", "DK"),
na_item == "D1_SAL_HW",
unit == "EUR") %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(su = "€", p = "", a = 1))
France, Ireland, Netherlands
Code
nama_10_lp_ulc %>%
filter(geo %in% c("IE", "FR", "NL"),
na_item == "D1_SAL_HW",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(su = "€", p = "", a = 1))
Austria, Finland, Sweden
Code
nama_10_lp_ulc %>%
filter(geo %in% c("AT", "FI", "SE"),
na_item == "D1_SAL_HW",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(su = "€", p = "", a = 1))
Germany, Italy, United Kingdom
Code
nama_10_lp_ulc %>%
filter(geo %in% c("UK", "DE", "IT"),
na_item == "D1_SAL_HW",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(su = "€", p = "", a = 1))
European Union, Euro Area
Code
nama_10_lp_ulc %>%
filter(geo %in% c("EU15", "EU28", "EA19"),
na_item == "D1_SAL_HW",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = Geo)) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(su = "€", p = "", a = 1))
Italy, Spain, Slovenia
Code
nama_10_lp_ulc %>%
filter(geo %in% c("IT", "ES", "SI"),
na_item == "D1_SAL_HW",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(su = "€", p = "", a = 1))
Cyprus, Estonia, Malta
Code
nama_10_lp_ulc %>%
filter(geo %in% c("MT", "CY", "EE"),
na_item == "D1_SAL_HW",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 1),
labels = scales::dollar_format(su = "€", p = "", a = 1))
Greece, Czechia, Portugal
Code
nama_10_lp_ulc %>%
filter(geo %in% c("PT", "CZ", "EL"),
na_item == "D1_SAL_HW",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 1),
labels = scales::dollar_format(su = "€", p = "", a = 1))
Latvia, Lithuania, Slovakia
Code
nama_10_lp_ulc %>%
filter(geo %in% c("LV", "SK", "LT"),
na_item == "D1_SAL_HW",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(su = "€", p = "", a = 1))
Croatia, Hungary, Poland
Euro
Code
nama_10_lp_ulc %>%
filter(geo %in% c("HR", "PL", "HU"),
na_item == "D1_SAL_HW",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(su = "€", p = "", a = 1))
National Currency
All
Code
nama_10_lp_ulc %>%
filter(geo %in% c("HR", "PL", "HU"),
na_item == "D1_SAL_HW",
unit == "NAC") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(su = "€", p = "", a = 1))
Index
Code
nama_10_lp_ulc %>%
# HR: Croatia
filter(geo %in% c("HR", "PL", "HU"),
na_item == "D1_SAL_HW",
unit %in% c("EUR", "NAC")) %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(unit, by = "unit") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(color = ifelse(geo == "HR", color2, color)) %>%
group_by(Geo) %>%
mutate(values = 100*values/values[date == as.Date("1995-01-01")]) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color, linetype = Unit)) +
scale_color_identity() + add_flags(6) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 1000, 50))
Romania, Bulgaria
Euro
Code
nama_10_lp_ulc %>%
filter(geo %in% c("RO", "BG"),
na_item == "D1_SAL_HW",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(2) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 1),
labels = scales::dollar_format(su = "€", p = "", a = 1))
NAC
Code
nama_10_lp_ulc %>%
filter(geo %in% c("RO", "BG"),
na_item == "D1_SAL_HW",
unit == "NAC") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation of employees per hour worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(2) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 1),
labels = scales::dollar_format(su = "€", p = "", a = 1))
D1_SAL_PER - Compensation per employee
France, Germany, Italy
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR", "DE", "IT"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
Iceland, Ireland, Denmark
Code
nama_10_lp_ulc %>%
filter(geo %in% c("IS", "IE", "DK"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
Luxembourg, Norway, Switzerland
All
Code
nama_10_lp_ulc %>%
filter(geo %in% c("CH", "LU", "NO"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
1995-
Code
nama_10_lp_ulc %>%
filter(geo %in% c("CH", "LU", "NO"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
Belgium, Denmark, Iceland
All
Code
nama_10_lp_ulc %>%
filter(geo %in% c("IS", "BE", "DK"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
1995-
Code
nama_10_lp_ulc %>%
filter(geo %in% c("IS", "BE", "DK"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
France, Ireland, Netherlands
All
Code
nama_10_lp_ulc %>%
filter(geo %in% c("IE", "FR", "NL"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
1995
Code
nama_10_lp_ulc %>%
filter(geo %in% c("IE", "FR", "NL"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
Austria, Finland, Sweden
Code
nama_10_lp_ulc %>%
filter(geo %in% c("AT", "FI", "SE"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
Germany, Italy, United Kingdom
Code
nama_10_lp_ulc %>%
filter(geo %in% c("UK", "DE", "IT"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
European Union, Euro Area
Code
nama_10_lp_ulc %>%
filter(geo %in% c("EU15", "EU28", "EA19"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee") +
geom_line(aes(x = date, y = values/1000, color = Geo, linetype = Geo)) +
scale_color_manual(values = viridis(4)[1:3]) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(0, 200, 5),
labels = scales::dollar_format(su = "k€", p = ""))
France, Germany, Italy, Spain, Poland
All
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR", "DE", "IT", "ES", "NL"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(5) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
1995-
Euros
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR", "DE", "IT", "ES", "NL"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(5) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 5),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
Index
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR", "DE", "IT", "ES", "NL"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
group_by(Geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee (1995-100)") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(5) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10))
Italy, Spain, Slovenia
Code
nama_10_lp_ulc %>%
filter(geo %in% c("IT", "ES", "SI"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
Cyprus, Estonia, Malta
Code
nama_10_lp_ulc %>%
filter(geo %in% c("MT", "CY", "EE"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
Greece, Czechia, Portugal
Code
nama_10_lp_ulc %>%
filter(geo %in% c("PT", "CZ", "EL"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
Latvia, Lithuania, Slovakia
Code
nama_10_lp_ulc %>%
filter(geo %in% c("LV", "SK", "LT"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
Croatia, Hungary, Poland
Code
nama_10_lp_ulc %>%
filter(geo %in% c("HR", "PL", "HU"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
Romania, Bulgaria
Code
nama_10_lp_ulc %>%
filter(geo %in% c("RO", "BG"),
na_item == "D1_SAL_PER",
unit == "EUR") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
ggplot + theme_minimal() + xlab("") + ylab("Compensation per employee") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(2) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 1),
labels = scales::dollar_format(su = "k€", p = "", a = 1))
NULC_PER - Nominal unit labour cost based on persons
France, Germany, Italy
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR", "DE", "IT"),
na_item == "NULC_PER",
unit == "I15") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Nominal unit labour cost based on persons") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "", p = ""))
France, Germany
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR", "DE"),
na_item == "NULC_PER",
unit == "I15") %>%
year_to_date %>%
filter(date >= as.Date("1990-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Nominal unit labour cost based on persons") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(2) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(0, 200, 5),
labels = scales::dollar_format(su = "", p = ""))
NULC_HW - Nominal unit labour cost based on hours worked
Code
nama_10_lp_ulc %>%
filter(geo %in% c("FR", "DE", "IT"),
na_item == "NULC_HW",
unit == "I15") %>%
year_to_date %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Nominal unit labour cost based on hours worked") +
geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags(3) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(0, 200, 10),
labels = scales::dollar_format(su = "", p = ""))