Economic Outlook, Wage - EO_WAGE

Data - OECD

Info

Last observation: Q: 2023-Q4 (N = 22) · A: 2023 (N = 33)

First observation: A: 1960 (N = 11) · Q: 1960-Q1 (N = 10)

Last data update: 02 aoû 2026, 08:58. Last compile: 17 aoû 2026, 23:37

Structure

LOCATION

VARIABLE

FREQUENCY

TIME_FORMAT

UNIT

POWERCODE

REFERENCEPERIOD

France, Germany, Italy

All

EO |>
  filter(LOCATION %in% c("FRA", "DEU", "ITA")) |>
  left_join(EO_var$LOCATION, by = "LOCATION") |>
  year_to_date() |>
  mutate(obsValue = obsValue/10^9) |>
  ggplot() + theme_minimal() + ylab("Wages") + xlab("") +
  geom_line(aes(x = date, y = obsValue, color = Location)) + add_3flags +
  scale_color_manual(values = c("#0055a4", "#000000", "#008c45")) +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.15, 0.2),
        legend.title = element_blank()) +
  scale_y_log10(breaks = c(1, 2, 3, 5, 10, 20, 30, 50, 80,
                           100, 200, 300, 500, 1000, 2000))

1995-

Annual

EO |>
  filter(LOCATION %in% c("FRA", "DEU", "ITA"),
         FREQUENCY == "A") |>
  left_join(EO_var$LOCATION, by = "LOCATION") |>
  year_to_date() |>
  filter(date >= as.Date("1995-01-01")) |>
  mutate(obsValue = obsValue/10^9) |>
  ggplot() + theme_minimal() + ylab("Wages") + xlab("") +
  geom_line(aes(x = date, y = obsValue, color = Location)) + add_3flags +
  scale_color_manual(values = c("#0055a4", "#000000", "#008c45")) +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.15, 0.2),
        legend.title = element_blank()) +
  scale_y_log10(breaks = c(1, 2, 3, 5, 10, 20, 30, 50, 80,
                           100, 200, 300, 500, 1000, 2000))

Quarterly

EO |>
  filter(LOCATION %in% c("FRA", "DEU", "ITA"),
         FREQUENCY == "Q") |>
  left_join(EO_var$LOCATION, by = "LOCATION") |>
  quarter_to_date() |>
  filter(date >= as.Date("1995-01-01")) |>
  mutate(obsValue = obsValue/10^9) |>
  ggplot() + theme_minimal() + ylab("Wages") + xlab("") +
  geom_line(aes(x = date, y = obsValue, color = Location)) + add_3flags +
  scale_color_manual(values = c("#0055a4", "#000000", "#008c45")) +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.15, 0.2),
        legend.title = element_blank()) +
  scale_y_log10(breaks = c(1, 2, 3, 5, 10, 20, 30, 50, 80,
                           100, 200, 300, 500, 1000, 2000))