2017 PPP Benchmark results - PPP2017

Data - OECD

Author

François Geerolf

Info

Last observation: A: 2017 (N = 56680)

First observation: A: 2017 (N = 56680)

Last data update: 02 aoû 2026, 09:03. Last compile: 18 aoû 2026, 01:30

Structure

Info

This dataset contains Purchasing Power Parities (PPPs) for all OECD countries. PPPs are the rates of currency conversion that eliminate the differences in price levels between countries. Per capita volume indices based on PPP converted data reflect only differences in the volume of goods and services produced. Comparative price levels are defined as the ratios of PPPs to exchange rates. They provide measures of the differences in price levels between countries. The PPPs are given in national currency units per US dollar. The price levels and volume indices derived using these PPPs have been rebased on the OECD average

Table 1.11: Price level indices (OECD = 100)

Table

Code 
PPP |>
  filter(TAB == "TAB1_11",
         LOCATION %in% c("FRA", "ITA", "USA"),
         obsTime == "2017") |>
  left_join(PPP2017_var$CAT, by = "CAT") |>
  left_join(PPP2017_var$LOCATION, by = "LOCATION") |>
  select(-LOCATION) %>%
  select_if(~ n_distinct(.) > 1) |>
  spread(Location, obsValue) |>
  arrange(-`France`) |>
  print_table_conditional()

A0104 - Housing, water, electricity, gas and other fuels

Code 
PPP |>
  filter(TAB == "TAB1_11",
         LOCATION %in% c("FRA", "ITA", "USA", "DEU", "EA19"),
         CAT == "A0104") |>
  left_join(PPP2017_var$LOCATION, by = "LOCATION") |>
  mutate(Location = ifelse(LOCATION == "EA19", "Europe", Location)) |>
  year_to_date() |>
  left_join(colors, by = c("Location" = "country")) |>
  ggplot() + theme_minimal() + scale_color_identity() +
  geom_line(aes(x = date, y = obsValue, color = color)) + 
  xlab("") + ylab("A0104, Price level indices (OECD = 100)") + add_4flags +
  scale_x_date(breaks = seq(2005, 2100,3) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 200, 10))

Biggest change

Code 
PPP |>
  filter(TAB == "TAB1_11",
         LOCATION %in% c("FRA", "USA"),
         obsTime %in% c("2008", "2017")) |>
  spread(obsTime, obsValue) |>
  transmute(CAT, LOCATION, obsValue = `2017`/`2008`) |>
  spread(LOCATION, obsValue) |>
  mutate(Difference = USA-FRA) |>
  arrange(-Difference) |>
  left_join(PPP2017_var$CAT, by = "CAT") |>
  select(CAT, Cat, everything()) |>
  print_table_conditional()