Last observation: 2026M07 (N = 3432)
First observation: 1996M01 (N = 532)
Last data update: 28 août 2026, 13:43. Last compile: 01 sept. 2026, 23:42
Data - Eurostat
Last observation: 2026M07 (N = 3432)
First observation: 1996M01 (N = 532)
Last data update: 28 août 2026, 13:43. Last compile: 01 sept. 2026, 23:42
ei_cphi_m |>
filter(unit == "HICP2025",
indic == "TOTAL",
geo %in% c("FR", "DE", "ES")) |>
month_to_date() |>
left_join(colors, by = c("Geo" = "country")) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags +
theme_minimal() + xlab("") + ylab("Consumer Price Index, All items") +
scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10)) +
theme(legend.position = c(0.7, 0.30),
legend.title = element_blank())
ei_cphi_m |>
filter(unit == "HICP2025",
indic == "CP-HI04",
geo %in% c("FR", "DE", "ES")) |>
month_to_date() |>
left_join(colors, by = c("Geo" = "country")) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_flags +
theme_minimal() + xlab("") + ylab("Housing") +
scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10)) +
theme(legend.position = c(0.7, 0.30),
legend.title = element_blank())
ei_cphi_m |>
filter(unit == "HICP2025",
indic %in% c("CP-HI04", "TOTAL", "CP-HIG", "CP-HIS"),
geo %in% c("FR")) |>
month_to_date() |>
ggplot() + geom_line(aes(x = date, y = values, color = Indic)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10)) +
theme(legend.position = c(0.7, 0.30),
legend.title = element_blank())
ei_cphi_m |>
filter(unit == "HICP2025",
indic %in% c("CP-HI04", "TOTAL", "CP-HIG", "CP-HIS"),
geo %in% c("DE")) |>
month_to_date() |>
ggplot() + geom_line(aes(x = date, y = values, color = Indic)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10)) +
theme(legend.position = c(0.7, 0.30),
legend.title = element_blank())
ei_cphi_m |>
filter(unit == "HICP2025",
indic %in% c("CP-HI04", "TOTAL", "CP-HIG", "CP-HIS"),
geo %in% c("ES")) |>
month_to_date() |>
ggplot() + geom_line(aes(x = date, y = values, color = Indic)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10)) +
theme(legend.position = c(0.7, 0.30),
legend.title = element_blank())
ei_cphi_m |>
filter(unit == "HICP2025",
indic %in% c("CP-HI04", "TOTAL", "CP-HIG", "CP-HIS"),
geo %in% c("EL")) |>
month_to_date() |>
ggplot() + geom_line(aes(x = date, y = values, color = Indic)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10)) +
theme(legend.position = c(0.7, 0.30),
legend.title = element_blank())
ei_cphi_m |>
filter(unit == "HICP2025",
indic %in% c("CP-HI04", "TOTAL", "CP-HIG", "CP-HIS"),
geo %in% c("PT")) |>
month_to_date() |>
ggplot() + geom_line(aes(x = date, y = values, color = Indic)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10)) +
theme(legend.position = c(0.7, 0.30),
legend.title = element_blank())
ei_cphi_m |>
filter(unit == "HICP2025",
indic %in% c("CP-HI04", "TOTAL", "CP-HIG", "CP-HIS"),
geo %in% c("PL")) |>
month_to_date() |>
ggplot() + geom_line(aes(x = date, y = values, color = Indic)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10)) +
theme(legend.position = c(0.7, 0.30),
legend.title = element_blank())
ei_cphi_m |>
filter(unit == "HICP2025",
indic %in% c("CP-HI04", "TOTAL", "CP-HIG", "CP-HIS"),
geo %in% c("IT")) |>
month_to_date() |>
ggplot() + geom_line(aes(x = date, y = values, color = Indic)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10)) +
theme(legend.position = c(0.7, 0.30),
legend.title = element_blank())
ei_cphi_m |>
filter(unit == "HICP2025",
indic %in% c("CP-HI04", "TOTAL", "CP-HIG", "CP-HIS"),
geo %in% c("NL")) |>
month_to_date() |>
ggplot() + geom_line(aes(x = date, y = values, color = Indic)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10)) +
theme(legend.position = c(0.7, 0.30),
legend.title = element_blank())
ei_cphi_m |>
filter(unit == "HICP2025",
indic %in% c("CP-HI04", "TOTAL", "CP-HIG", "CP-HIS"),
geo %in% c("AT")) |>
month_to_date() |>
ggplot() + geom_line(aes(x = date, y = values, color = Indic)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(0, 200, 10)) +
theme(legend.position = c(0.7, 0.30),
legend.title = element_blank())