Harmonised index of consumer prices (HICP) - ECOICOP ver.2 - indices and rates of change, monthly data (index) - prc_hicp_iw

Data - Eurostat

Last observation: 2026 (N = 22915)

First observation: 1996 (N = 7230)

Last data update: 09 sept. 2026, 07:51

Last compile: 14 sept. 2026, 23:03

Structure

freq

coicop18

statinfo

geo

France

Food, Housing, Transport

prc_hicp_iw |>
  filter(geo == "FR",
         coicop18 %in% c("CP01", "CP04", "CP07")) |>
  year_to_date() |>
  mutate(values = values/1000) |>
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop18)) +
  theme_minimal() +
  scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = "right") +
  xlab("") + ylab("Weight in HICP basket") +
  scale_y_continuous(labels = scales::percent_format(accuracy = 1))

Train

prc_hicp_iw |>
  filter(geo == "FR",
         coicop18 %in% c("CP07311", "CP0732")) |>
  year_to_date() |>
  mutate(values = values/1000) |>
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop18)) +
  theme_minimal() +
  scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = "right") +
  xlab("") + ylab("Weight in HICP basket") +
  scale_y_continuous(labels = scales::percent_format(accuracy = .1))

Weights

Housing Weight: France, Germany, Italy, Spain

prc_hicp_iw |>
  filter(geo %in% c("FR", "DE", "IT", "ES"),
         coicop18 == "CP04") |>
  year_to_date() |>
  add_flag_color("Geo") |>
  mutate(values = values/1000) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) +
  theme_minimal() + scale_color_identity() + add_flags +
  scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("Housing, water, electricity, gas and other fuels (weight in HICP basket)") +
  scale_y_continuous(labels = scales::percent_format(accuracy = 1))

Automobiles

All

prc_hicp_iw |>
  filter(geo %in% c("FR", "DE", "IT", "ES"),
         coicop18 == "CP0711") |>
  year_to_date() |>
  add_flag_color("Geo") |>
  mutate(values = values/1000) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) +
  theme_minimal() + scale_color_identity() + add_flags +
  scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("Cars - CP0711") +
  scale_y_continuous(labels = scales::percent_format(accuracy = 1))

New

prc_hicp_iw |>
  filter(geo %in% c("FR", "DE", "IT", "ES"),
         coicop18 == "CP07111") |>
  year_to_date() |>
  add_flag_color("Geo") |>
  mutate(values = values/1000) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) +
  theme_minimal() + scale_color_identity() + add_flags +
  scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("New motor cars - CP0711") +
  scale_y_continuous(labels = scales::percent_format(accuracy = .1))

Old

prc_hicp_iw |>
  filter(geo %in% c("FR", "DE", "IT", "ES"),
         coicop18 == "CP07112") |>
  year_to_date() |>
  add_flag_color("Geo") |>
  mutate(values = values/1000) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) +
  theme_minimal() + scale_color_identity() + add_flags +
  scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("Second-hand motor cars - CP07112") +
  scale_y_continuous(labels = scales::percent_format(accuracy = 0.1))

Example