Labour cost index by NACE Rev. 2 activity - nominal value, quarterly data
Data - Eurostat
Info
Last observation: Quarterly: 2026Q1 (N = 27,330)
First observation: Quarterly: 1996Q1 (N = 430)
Last data update: 14 aoû 2026, 00:18. Last compile: 14 aoû 2026, 03:26
Structure
Last
Europe
Code
lc_lci_r2_q |>
filter(geo == "EA20",
unit != "I20") |>
filter(time == max(time)) |>
mutate(variable = paste0(s_adj, " - ", unit)) |>
select(-unit, -s_adj) |>
spread(variable, values) %>%
select_if(~ n_distinct(.) > 1) |>
print_table_conditional()France
Code
lc_lci_r2_q |>
filter(geo == "FR",
unit != "I20") |>
filter(time == max(time)) |>
mutate(variable = paste0(s_adj, " - ", unit)) |>
select(-unit, -s_adj) |>
spread(variable, values) %>%
select_if(~ n_distinct(.) > 1) |>
print_table_conditional()Germany
Code
lc_lci_r2_q |>
filter(geo == "DE",
unit != "I20") |>
filter(time == max(time)) |>
mutate(variable = paste0(s_adj, " - ", unit)) |>
select(-unit, -s_adj) |>
spread(variable, values) %>%
select_if(~ n_distinct(.) > 1) |>
print_table_conditional()Indices
France
All
Nominal
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "I20",
s_adj == "SCA",
geo %in% c("FR")) |>
quarter_to_date() |>
left_join(colors, by = c("Geo" = "country")) |>
group_by(Lcstruct) |>
arrange(date) |>
mutate(values = 100*values/values[1]) |>
ggplot() + geom_line(aes(x = date, y = values, color = Lcstruct)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(80, 200, 5)) +
theme(legend.position = c(0.45, 0.90),
legend.title = element_blank())
2017T2-
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "I20",
s_adj == "SCA",
geo %in% c("FR")) |>
quarter_to_date() |>
filter(date >= as.Date("2017-04-01")) |>
left_join(colors, by = c("Geo" = "country")) |>
group_by(Lcstruct) |>
arrange(date) |>
mutate(values = 100*values/values[1]) |>
ggplot() + geom_line(aes(x = date, y = values, color = Lcstruct)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(80, 200, 5)) +
theme(legend.position = c(0.45, 0.90),
legend.title = element_blank()) +
geom_text(data = . %>%
filter(date %in% max(date)),
aes(x = date, y = values, color = Lcstruct, label = round(values, 1)))
Business
All
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-N",
unit == "I20",
s_adj == "SCA",
geo %in% c("FR")) |>
quarter_to_date() |>
left_join(colors, by = c("Geo" = "country")) |>
group_by(Lcstruct) |>
arrange(date) |>
mutate(values = 100*values/values[1]) |>
ggplot() + geom_line(aes(x = date, y = values, color = Lcstruct)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(50, 200, 5)) +
theme(legend.position = c(0.45, 0.90),
legend.title = element_blank())
1999-
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-N",
unit == "I20",
s_adj == "SCA",
geo %in% c("FR")) |>
quarter_to_date() |>
filter(date >= as.Date("1999-01-01")) |>
left_join(colors, by = c("Geo" = "country")) |>
group_by(Lcstruct) |>
arrange(date) |>
mutate(values = 100*values/values[1]) |>
ggplot() + geom_line(aes(x = date, y = values, color = Lcstruct)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(50, 200, 5)) +
theme(legend.position = c(0.45, 0.90),
legend.title = element_blank())
Public
All
Code
lc_lci_r2_q |>
filter(nace_r2 == "O-S",
unit == "I20",
s_adj == "SCA",
geo %in% c("FR")) |>
quarter_to_date() |>
left_join(colors, by = c("Geo" = "country")) |>
group_by(Lcstruct) |>
arrange(date) |>
mutate(values = 100*values/values[1]) |>
ggplot() + geom_line(aes(x = date, y = values, color = Lcstruct)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(50, 200, 5)) +
theme(legend.position = c(0.45, 0.90),
legend.title = element_blank())
2017T2-
Code
lc_lci_r2_q |>
filter(nace_r2 == "O-S",
unit == "I20",
s_adj == "SCA",
geo %in% c("FR")) |>
quarter_to_date() |>
filter(date >= as.Date("2017-04-01")) |>
left_join(colors, by = c("Geo" = "country")) |>
group_by(Lcstruct) |>
arrange(date) |>
mutate(values = 100*values/values[1]) |>
ggplot() + geom_line(aes(x = date, y = values, color = Lcstruct)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(50, 200, 2)) +
theme(legend.position = c(0.45, 0.90),
legend.title = element_blank()) +
geom_text(data = . %>%
filter(date %in% max(date)),
aes(x = date, y = values, color = Lcstruct, label = round(values, 1)))
Germany
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "I20",
s_adj == "SCA",
geo %in% c("DE")) |>
quarter_to_date() |>
left_join(colors, by = c("Geo" = "country")) |>
group_by(Lcstruct) |>
arrange(date) |>
mutate(values = 100*values/values[1]) |>
ggplot() + geom_line(aes(x = date, y = values, color = Lcstruct)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(60, 200, 5)) +
theme(legend.position = c(0.45, 0.90),
legend.title = element_blank())
Italy
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "I20",
s_adj == "SCA",
geo %in% c("IT")) |>
quarter_to_date() |>
left_join(colors, by = c("Geo" = "country")) |>
group_by(Lcstruct) |>
arrange(date) |>
mutate(values = 100*values/values[1]) |>
ggplot() + geom_line(aes(x = date, y = values, color = Lcstruct)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(60, 200, 5)) +
theme(legend.position = c(0.45, 0.90),
legend.title = element_blank())
Spain
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "I20",
s_adj == "SCA",
geo %in% c("ES")) |>
quarter_to_date() |>
left_join(colors, by = c("Geo" = "country")) |>
group_by(Lcstruct) |>
arrange(date) |>
mutate(values = 100*values/values[1]) |>
ggplot() + geom_line(aes(x = date, y = values, color = Lcstruct)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(60, 200, 5)) +
theme(legend.position = c(0.45, 0.90),
legend.title = element_blank())
Euro Area
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "I20",
s_adj == "SCA",
geo %in% c("EA")) |>
quarter_to_date() |>
left_join(colors, by = c("Geo" = "country")) |>
group_by(Lcstruct) |>
arrange(date) |>
mutate(values = 100*values/values[1]) |>
ggplot() + geom_line(aes(x = date, y = values, color = Lcstruct)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(60, 200, 5)) +
theme(legend.position = c(0.45, 0.90),
legend.title = element_blank())
Netherlands
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "I20",
s_adj == "SCA",
geo %in% c("NL")) |>
quarter_to_date() |>
left_join(colors, by = c("Geo" = "country")) |>
ggplot() + geom_line(aes(x = date, y = values, color = Lcstruct)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(60, 200, 5)) +
theme(legend.position = c(0.45, 0.80),
legend.title = element_blank())
Europe and Eurozone
All
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "PCH_SM",
lcstruct == "D11",
s_adj == "CA",
geo %in% c("EA19", "EU27_2020")) |>
quarter_to_date() |>
left_join(colors, by = c("Geo" = "country")) |>
mutate(values = values/100) |>
ggplot() + geom_line(aes(x = date, y = values, color = Geo)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
labels = percent_format(a = 1)) +
theme(legend.position = c(0.25, 0.90),
legend.title = element_blank())
2017-
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "PCH_SM",
lcstruct == "D11",
s_adj == "CA",
geo %in% c("EA19", "EU27_2020")) |>
quarter_to_date() |>
filter(date >= as.Date("2017-01-01")) |>
left_join(colors, by = c("Geo" = "country")) |>
mutate(values = values/100) |>
ggplot() + geom_line(aes(x = date, y = values, color = Geo)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
labels = percent_format(a = 1)) +
theme(legend.position = c(0.25, 0.90),
legend.title = element_blank())
2022Q1-Q2 - Tables
D11 - Wages and salaries (total)
%
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit %in% c("PCH_SM", "PCH_PRE"),
lcstruct == "D11",
time == max(time),
s_adj == "CA") %>%
select_if(~ n_distinct(.) > 1) |>
select(-unit) |>
spread(Unit, values) |>
print_table_conditional()Indice
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit %in% c("PCH_SM", "PCH_PRE"),
lcstruct == "D11",
time == max(time),
s_adj == "CA") %>%
select_if(~ n_distinct(.) > 1) |>
select(-unit) |>
spread(Unit, values) |>
print_table_conditional()D12_D4_MD5 - Labour costs other than wages and salaries
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "PCH_SM",
lcstruct == "D12_D4_MD5",
time %in% c("2022Q2","2022Q1"),
s_adj == "CA") %>%
select_if(~ n_distinct(.) > 1) |>
spread(time, values) |>
arrange(`2022Q2`) |>
print_table_conditional()D1_D4_MD5 - Labour cost for LCI (compensation of employees plus taxes minus subsidies)
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "PCH_SM",
lcstruct == "D12_D4_MD5",
time %in% c("2022Q2","2022Q1"),
s_adj == "CA") %>%
select_if(~ n_distinct(.) > 1) |>
spread(time, values) |>
arrange(`2022Q2`) |>
print_table_conditional()D11 - Wages and salaries
France, Germany
Indice
Tous
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-N",
unit == "I20",
s_adj == "SCA",
lcstruct == "D11",
geo %in% c("FR", "DE")) |>
quarter_to_date() |>
#filter(date >= as.Date("1998-01-01")) %>%
left_join(colors, by = c("Geo" = "country")) |>
group_by(geo) |>
arrange(date) |>
mutate(values = 100*values/values[1]) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = c(seq(1998, 2100, 2)) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(90, 200, 5)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
1999-
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-N",
unit == "I20",
s_adj == "SCA",
lcstruct == "D11",
geo %in% c("FR", "DE")) |>
quarter_to_date() |>
filter(date >= as.Date("1999-01-01")) |>
left_join(colors, by = c("Geo" = "country")) |>
group_by(geo) |>
arrange(date) |>
mutate(values = 100*values/values[1]) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = c(seq(1999, 2100, 5), seq(1997, 2100, 5)) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(90, 200, 5)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
1998-
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-N",
unit == "I20",
s_adj == "SCA",
lcstruct == "D11",
geo %in% c("FR", "DE")) |>
quarter_to_date() |>
filter(date >= as.Date("1998-01-01")) |>
left_join(colors, by = c("Geo" = "country")) |>
group_by(geo) |>
arrange(date) |>
mutate(values = 100*values/values[1]) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = c(seq(1998, 2100, 2)) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(90, 200, 5)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
France, Germany, Italy, Spain, Europe
Indice
All
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-N",
unit == "I20",
s_adj == "SCA",
lcstruct == "D11",
geo %in% c("FR", "DE", "ES", "IT", "EA19")) |>
quarter_to_date() |>
mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) |>
left_join(colors, by = c("Geo" = "country")) |>
group_by(geo) |>
arrange(date) |>
mutate(values = 100*values/values[1]) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(90, 200, 5)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
2001-
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-N",
unit == "I20",
s_adj == "SCA",
lcstruct == "D11",
geo %in% c("FR", "DE", "ES", "IT", "EA19")) |>
quarter_to_date() |>
filter(date >= as.Date("2001-01-01")) |>
mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) |>
left_join(colors, by = c("Geo" = "country")) |>
group_by(geo) |>
arrange(date) |>
mutate(values = 100*values/values[1]) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(90, 200, 5)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
2017T2-
B-N
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-N",
unit == "I20",
s_adj == "SCA",
lcstruct == "D11",
geo %in% c("FR", "DE", "ES", "IT", "EA20")) |>
quarter_to_date() |>
filter(date >= as.Date("2017-04-01")) |>
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) |>
left_join(colors, by = c("Geo" = "country")) |>
group_by(geo) |>
arrange(date) |>
mutate(values = 100*values/values[1]) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(90, 200, 5)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
B-S
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "I20",
s_adj == "SCA",
lcstruct == "D11",
geo %in% c("FR", "DE", "ES", "IT", "EA20")) |>
quarter_to_date() |>
filter(date >= as.Date("2017-04-01")) |>
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) |>
left_join(colors, by = c("Geo" = "country")) |>
group_by(geo) |>
arrange(date) |>
mutate(values = 100*values/values[1]) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(90, 200, 5)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
Change
All
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "PCH_SM",
lcstruct == "D11",
s_adj == "CA",
geo %in% c("FR", "DE", "ES", "IT", "EA19")) |>
quarter_to_date() |>
mutate(values = values/100,
Geo = ifelse(geo == "EA19", "Europe", Geo)) |>
left_join(colors, by = c("Geo" = "country")) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
labels = percent_format(a = 1)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
2017-
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "PCH_SM",
lcstruct == "D11",
s_adj == "CA",
geo %in% c("FR", "DE", "ES", "IT", "EA19")) |>
quarter_to_date() |>
filter(date >= as.Date("2017-01-01")) |>
mutate(values = values/100,
Geo = ifelse(geo == "EA19", "Europe", Geo)) |>
left_join(colors, by = c("Geo" = "country")) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
labels = percent_format(a = 1)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
2020-
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "PCH_SM",
lcstruct == "D11",
s_adj == "CA",
geo %in% c("FR", "DE", "ES", "IT", "EA19")) |>
quarter_to_date() |>
filter(date >= as.Date("2020-01-01")) |>
mutate(values = values/100,
Geo = ifelse(geo == "EA19", "Europe", Geo)) |>
left_join(colors, by = c("Geo" = "country")) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = "6 months",
labels = date_format("%Y %b")) +
scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
labels = percent_format(a = 1)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
3 years
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "PCH_SM",
lcstruct == "D11",
s_adj == "CA",
geo %in% c("FR", "DE", "ES", "IT", "EA19")) |>
quarter_to_date() |>
filter(date >= Sys.Date() - years(3)) |>
mutate(values = values/100,
Geo = ifelse(geo == "EA19", "Europe", Geo)) |>
left_join(colors, by = c("Geo" = "country")) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = "3 months",
labels = date_format("%Y %b")) +
scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
labels = percent_format(a = 1)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
2 years
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "PCH_SM",
lcstruct == "D11",
s_adj == "CA",
geo %in% c("FR", "DE", "ES", "IT", "EA19")) |>
quarter_to_date() |>
filter(date >= Sys.Date() - years(2)) |>
mutate(values = values/100,
Geo = ifelse(geo == "EA19", "Europe", Geo)) |>
left_join(colors, by = c("Geo" = "country")) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = "3 months",
labels = date_format("%Y %b")) +
scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
labels = percent_format(a = 1)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
Netherlands, Portugal, Hungary, Italy
All
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "PCH_SM",
lcstruct == "D11",
s_adj == "CA",
geo %in% c("NL", "PT", "HU", "IT")) |>
quarter_to_date() |>
left_join(colors, by = c("Geo" = "country")) |>
mutate(values = values/100) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
labels = percent_format(a = 1)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
2017-
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "PCH_SM",
lcstruct == "D11",
s_adj == "CA",
geo %in% c("NL", "PT", "HU", "IT")) |>
quarter_to_date() |>
filter(date >= as.Date("2017-01-01")) |>
left_join(colors, by = c("Geo" = "country")) |>
mutate(values = values/100) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
labels = percent_format(a = 1)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
D12_D4_MD5 - Labour costs other than wages and salaries
France, Germany, Italy, Spain, Europe
All
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "PCH_SM",
lcstruct == "D12_D4_MD5",
s_adj == "CA",
geo %in% c("FR", "DE", "ES", "IT", "EA19")) |>
quarter_to_date() |>
mutate(values = values/100,
Geo = ifelse(geo == "EA19", "Europe", Geo)) |>
left_join(colors, by = c("Geo" = "country")) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
labels = percent_format(a = 1)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
2017-
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "PCH_SM",
lcstruct == "D12_D4_MD5",
s_adj == "CA",
geo %in% c("FR", "DE", "ES", "IT", "EA19")) |>
quarter_to_date() |>
filter(date >= as.Date("2017-01-01")) |>
mutate(values = values/100,
Geo = ifelse(geo == "EA19", "Europe", Geo)) |>
left_join(colors, by = c("Geo" = "country")) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
labels = percent_format(a = 1)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
2020-
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "PCH_SM",
lcstruct == "D12_D4_MD5",
s_adj == "CA",
geo %in% c("FR", "DE", "ES", "IT", "EA19")) |>
quarter_to_date() |>
filter(date >= as.Date("2020-01-01")) |>
mutate(values = values/100,
Geo = ifelse(geo == "EA19", "Europe", Geo)) |>
left_join(colors, by = c("Geo" = "country")) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = "6 months",
labels = date_format("%Y %b")) +
scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
labels = percent_format(a = 1)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
3 years
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "PCH_SM",
lcstruct == "D12_D4_MD5",
s_adj == "CA",
geo %in% c("FR", "DE", "ES", "IT", "EA19")) |>
quarter_to_date() |>
filter(date >= Sys.Date() - years(3)) |>
mutate(values = values/100,
Geo = ifelse(geo == "EA19", "Europe", Geo)) |>
left_join(colors, by = c("Geo" = "country")) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = "3 months",
labels = date_format("%Y %b")) +
scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
labels = percent_format(a = 1)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
2 years
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "PCH_SM",
lcstruct == "D12_D4_MD5",
s_adj == "CA",
geo %in% c("FR", "DE", "ES", "IT", "EA19")) |>
quarter_to_date() |>
filter(date >= Sys.Date() - years(2)) |>
mutate(values = values/100,
Geo = ifelse(geo == "EA19", "Europe", Geo)) |>
left_join(colors, by = c("Geo" = "country")) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = "3 months",
labels = date_format("%Y %b")) +
scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
labels = percent_format(a = 1)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
D1_D4_MD5 - Labour cost for LCI
France, Germany, Italy, Spain
All
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "PCH_SM",
lcstruct == "D1_D4_MD5",
s_adj == "CA",
geo %in% c("FR", "DE", "ES", "IT", "EA19")) |>
quarter_to_date() |>
left_join(colors, by = c("Geo" = "country")) |>
mutate(values = values/100,
Geo = ifelse(geo == "EA19", "Europe", Geo)) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
labels = percent_format(a = 1)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
2017-
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "PCH_SM",
lcstruct == "D1_D4_MD5",
s_adj == "CA",
geo %in% c("FR", "DE", "ES", "IT")) |>
quarter_to_date() |>
filter(date >= as.Date("2017-01-01")) |>
left_join(colors, by = c("Geo" = "country")) |>
mutate(values = values/100) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
labels = percent_format(a = 1)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())
2020-
Code
lc_lci_r2_q |>
filter(nace_r2 == "B-S",
unit == "PCH_SM",
lcstruct == "D1_D4_MD5",
s_adj == "CA",
geo %in% c("FR", "DE", "ES", "IT", "EA19")) |>
quarter_to_date() |>
filter(date >= as.Date("2020-01-01")) |>
mutate(values = values/100,
Geo = ifelse(geo == "EA19", "Europe", Geo)) |>
left_join(colors, by = c("Geo" = "country")) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = "6 months",
labels = date_format("%Y %b")) +
scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
labels = percent_format(a = 1)) +
scale_color_identity() + add_flags +
theme(legend.position = c(0.75, 0.90),
legend.title = element_blank())