Consumer price indices (CPIs) - PRICES_ALL

Name: Consumer price indices (CPIs)
Creator: François Geerolf
License: https://creativecommons.org/licenses/by/4.0/

Data - OECD

Author

François Geerolf

Last observation: Q2 2026 (N = 609) · juil. 2026 (N = 649) · 2025 (N = 4909)

First observation: 1914 (N = 1) · janv. 1914 (N = 1) · Q1 1914 (N = 1)

Last data update: 05 sept. 2026, 03:14

Last compile: 06 sept. 2026, 14:57

Structure

Europe vs. US

1996-

Code

PRICES_ALL |>
  
  filter(EXPENDITURE == "_T",
         REF_AREA %in% c("EA20", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  month_to_date() |>
  filter(date >= as.Date("1996-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  mutate(Ref_area = ifelse(REF_AREA == "EA20", "Europe", Ref_area)) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

1996-

Code

PRICES_ALL |>
  
  filter(EXPENDITURE == "_T",
         REF_AREA %in% c("EA20", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  month_to_date() |>
  filter(date >= as.Date("2002-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  mutate(Ref_area = ifelse(REF_AREA == "EA20", "Europe", Ref_area)) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2017-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "_T",
         REF_AREA %in% c("EA20", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("2017-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  mutate(Ref_area = ifelse(REF_AREA == "EA20", "Europe", Ref_area)) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_3flags +
  theme_minimal() + xlab("") + ylab("Price Index") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

France vs. Germany vs. Italy

1996-

Code

PRICES_ALL |>
  
  filter(EXPENDITURE == "_T",
         REF_AREA %in% c("FRA", "DEU", "ITA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  month_to_date() |>
  filter(date >= as.Date("1996-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

1999-

Code

PRICES_ALL |>
  
  filter(EXPENDITURE == "_T",
         REF_AREA %in% c("FRA", "DEU", "ITA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  month_to_date() |>
  filter(date >= as.Date("1999-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2017-

Code

PRICES_ALL |>
  
  filter(EXPENDITURE == "_T",
         REF_AREA %in% c("FRA", "DEU", "ITA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  month_to_date() |>
  filter(date >= as.Date("2017-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

France vs. Germany vs. Italy vs. Netherlands vs. Spain

1996-

Code

PRICES_ALL |>
  
  filter(EXPENDITURE == "_T",
         REF_AREA %in% c("FRA", "ESP", "NLD", "DEU", "ITA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  month_to_date() |>
  filter(date >= as.Date("1996-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

1999-

Code

PRICES_ALL |>
  
  filter(EXPENDITURE == "_T",
         REF_AREA %in% c("FRA", "ESP", "NLD", "DEU", "ITA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  month_to_date() |>
  filter(date >= as.Date("1999-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2017-

Code

PRICES_ALL |>
  
  filter(EXPENDITURE == "_T",
         REF_AREA %in% c("FRA", "ESP", "NLD", "DEU", "ITA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  month_to_date() |>
  filter(date >= as.Date("2017-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

France vs. Germany vs. Italy vs. Netherlands vs. Spain

2017-

Code

PRICES_ALL |>
  
  filter(EXPENDITURE == "_T",
         REF_AREA %in% c("FRA", "ESP", "NLD", "DEU"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  month_to_date() |>
  filter(date >= as.Date("2017-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2017-

All countries

Code

PRICES_ALL |>
  filter(EXPENDITURE == "_T",
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  month_to_date() |>
  filter(date >= as.Date("2017-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  filter(date == as.Date("2025-12-01")) %>%
  select_if(~ n_distinct(.) > 1) |>
  arrange(obsValue) |>
  print_table_conditional()

France vs. Germany vs. Italy vs. Netherlands vs. Spain

2017-

Code

PRICES_ALL |>
  
  filter(EXPENDITURE == "_T",
         REF_AREA %in% c("FRA", "ESP", "CHE", "DEU"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  month_to_date() |>
  filter(date >= as.Date("2017-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

France vs. Germany

1996-

Code

PRICES_ALL |>
  
  filter(EXPENDITURE == "_T",
         REF_AREA %in% c("FRA", "DEU"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  month_to_date() |>
  filter(date >= as.Date("1996-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

1999-

Code

PRICES_ALL |>
  
  filter(EXPENDITURE == "_T",
         REF_AREA %in% c("FRA", "DEU"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  month_to_date() |>
  filter(date >= as.Date("1999-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2017-

Code

PRICES_ALL |>
  
  filter(EXPENDITURE == "_T",
         REF_AREA %in% c("FRA", "DEU"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  month_to_date() |>
  filter(date >= as.Date("2017-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

France vs. USA

CP041 - rents

1996-

Code

PRICES_ALL |>
  
  filter(EXPENDITURE == "CP041",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  month_to_date() |>
  filter(date >= as.Date("1996-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index (CP041)") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2002-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "CP041",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("2002-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index (CP041)") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.2),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2010-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "CP041",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("2010-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index (CP041)") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.2),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2017-

Code

PRICES_ALL |>
  
  filter(EXPENDITURE == "CP041",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  month_to_date() |>
  filter(date >= as.Date("2017-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index (CP041)") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

GD

1996-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "GD",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("1996-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index (CP09)") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2002-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "GD",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("2002-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index (CP09)") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.2),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2017-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "GD",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("2017-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index (GD)") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.2),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

CP07

1996-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "CP07",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("1996-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index (CP09)") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2002-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "CP07",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("2002-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index (CP09)") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.2),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2017-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "CP07",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("2017-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index (CP07)") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.2),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2020-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "CP07",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("2020-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index (CP07)") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.2),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

CP09

1996-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "CP09",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("1996-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index (CP09)") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2002-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "CP09",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("2002-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index (CP09)") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.2),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2017-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "CP09",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("2017-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index (CP09)") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.2),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

CP08

1996-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "CP08",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("1996-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index (CP08)") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.2),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2002-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "CP08",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("2002-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index (CP08)") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.2),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2017-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "CP08",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("2017-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index (CP08)") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.2),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

All

1996-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "_T",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("1996-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2002-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "_T",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("2002-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2017-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "_T",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("2017-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

2019-

Code

PRICES_ALL |>
  filter(EXPENDITURE == "_T",
         REF_AREA %in% c("FRA", "USA"),
         ADJUSTMENT == "N",
         MEASURE == "CPI",
         TRANSFORMATION == "_Z",
         FREQ == "M") |>
  
  
  month_to_date() |>
  filter(date >= as.Date("2019-01-01")) |>
  group_by(Ref_area, Methodology) |>
  arrange(date) |>
  mutate(obsValue = 100*obsValue/obsValue[1]) |>
  add_flag_color("Ref_area") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Methodology)) + 
  scale_color_identity() +
  scale_linetype_manual(values = c("dashed", "solid")) + add_flags +
  theme_minimal() + xlab("") + ylab("Price Index") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) + 
  scale_y_log10(breaks = seq(10, 200, 5))

Related Data

Évolution du pouvoir d’achat depuis 2017

source	dataset	Title	Updated
oecd	PRICES_ALL	Consumer price indices (CPIs) - PRICES_ALL	2026-09-05
dares	les-indices-de-salaire-de-base	Les indices de salaire de base - les-indices-de-salaire-de-base	2026-08-30
eurostat	nama_10_pc	Main GDP aggregates per capita - nama_10_pc	2026-09-03
eurostat	nasq_10_nf_tr	Non-financial transactions - nasq_10_nf_tr	2026-08-28
insee	CNA-2020-CONSO-MEN	Consommation des ménages - CNA-2020-CONSO-MEN	2026-09-04
insee	INDICES_LOYERS	Indices des loyers d’habitation (ILH) - INDICES_LOYERS	2026-09-04
insee	IPEA-2021	Indice des prix d’entretien-amélioration des bâtiments - Base 2021 - IPEA-2021	2026-09-04
insee	IRL	Indice pour la révision d’un loyer d’habitation - IRL	2026-09-04
insee	SALAIRES-ANNUELS	Salaires annuels - SALAIRES-ANNUELS	2026-09-04
insee	SMIC-COTISATIONS	Taux de cotisations et salaires minima garantis - SMIC-COTISATIONS	2026-09-04
insee	T_2101	2.101 – Revenu disponible brut des ménages et évolution du pouvoir d’achat par personne, par ménage et par unité de consommation (En milliards euros et %) - T_2101	2026-09-02
insee	T_2103	2.103 – Dépense de consommation finale pré-engagée des ménages à prix courants (En milliards d’euros et %) - T_2103	2026-09-06
insee	T_7401	7.401 – Compte des ménages (S14) (En milliards d’euros) - T_7401	2026-09-02
insee	econ-gen-revenu-dispo-pouv-achat-2	Revenu disponible brut et pouvoir d’achat - Données annuelles - econ-gen-revenu-dispo-pouv-achat-2	2026-08-02
insee	t_men_val	Revenu, pouvoir d’achat et comptes des ménages - Valeurs aux prix courants - t_men_val	2026-09-03
insee	t_pib_vol	PIB et ses composantes - Equilibre emplois-ressources - volumes aux prix de l’année précédente chaînés - t_pib_vol	2026-09-03
insee	t_pouvachat_val	Pouvoir d’achat et ratios des comptes des ménages - t_pouvachat_val	2026-09-03
insee	t_recapAgent_val	Récapitulatif des séries des comptes d’agents - t_recapAgent_val	2026-09-03
insee	t_salaire_val	Salaire moyen par tête - SMPT (données CVS) - t_salaire_val	2026-09-03
ipp	indicefp	Point d’indice de la fonction publique - indicefp	2026-09-04
ipp	revalorisation_pension	Revalorisation du Régime général de la caisse nationale d’assurance vieillesse (CNAV) - revalorisation_pension	2026-08-01