Purchasing power adjusted GDP per capita - sdg_10_10

Data - Eurostat

Author

François Geerolf

Info

Last observation: 2025 (N = 90)

First observation: 2000 (N = 87)

Last data update: 14 aoû 2026, 21:26. Last compile: 18 aoû 2026, 04:02

Structure

Overview

Code

freq_dominant <- sdg_10_10 |>
  (\(d) if ("freq" %in% names(d)) d else mutate(d, freq = "A"))() |>
  filter(!is.na(values)) |>
  count(freq, sort = TRUE) |>
  slice(1) |>
  pull(freq)

convert_fn <- switch(freq_dominant,
  "A" = year_to_date, "Q" = quarter_to_date, "M" = month_to_date,
  year_to_date)

sdg_10_10 |>
  (\(d) if ("freq" %in% names(d)) d else mutate(d, freq = "A"))() |>
  filter(!is.na(values), freq == freq_dominant) |>
  group_by(time) |>
  summarise(values = mean(values, na.rm = TRUE), .groups = "drop") |>
  convert_fn() |>
  ggplot() + theme_minimal() + xlab("") + ylab("Average value across all series") +
  geom_line(aes(x = date, y = values)) +
  scale_x_date(date_labels = "%Y")