HICP at constant taxes - monthly data (index) - prc_hicp_cind

Data - Eurostat

Author

François Geerolf

Info

Last observation: Monthly: 2025M12 (N = 14,060)

First observation: Monthly: 2002M01 (N = 78)

Last data update: 11 aoû 2026, 20:55. Last compile: 12 aoû 2026, 02:39

Structure

Prices

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop == "CP00",
         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)) + 
  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)) +
  scale_color_identity() + add_flags +
  theme(legend.position = c(0.7, 0.30),
        legend.title = element_blank())

Actual Rentals for Housing

Table

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP041"),
         time %in% c("2000M10", "2005M10", "2010M10", "2015M10", "2020M10")) |>
  
  select(geo, Geo, time, values) |>
  spread(time, values) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

France, Germany, Italy, Greece

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP041"),
         geo %in% c("FR", "DE", "IT", "EL")) |>
  month_to_date() |>
  
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) + 
  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)) +
  scale_color_identity() + add_flags +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Austria, Belgium, Cyprus, Switzerland

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP041"),
         geo %in% c("AT", "BE", "CY", "CH")) |>
  month_to_date() |>
  
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) + 
  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)) +
  scale_color_identity() + add_flags +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Czechia, Bulgaria, Hungary

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP041"),
         geo %in% c("CZ", "BG", "HU")) |>
  month_to_date() |>
  
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) + 
  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)) +
  scale_color_identity() + add_flags +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Czechia, Europe

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP041"),
         geo %in% c("DE", "EA", "EA18", "EA19")) |>
  month_to_date() |>
  
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) + 
  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),
                limits = c(70, 125)) +
  scale_color_identity() + add_flags +
  theme(legend.position = c(0.5, 0.85),
        legend.title = element_blank())

Estonia, Greece, Spain, Finland

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP041"),
         geo %in% c("EE", "EL", "ES", "FI")) |>
  month_to_date() |>
  
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) + 
  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)) +
  scale_color_identity() + add_flags +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Croatia, Iceland, Ireland, Lithunia

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP041"),
         geo %in% c("HR", "IE", "IS", "LT")) |>
  month_to_date() |>
  
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) + 
  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)) +
  scale_color_identity() + add_flags +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Latvia, Luxembourg, Malta, North Macedonia

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP041"),
         geo %in% c("LU", "LV", "MK", "MT")) |>
  month_to_date() |>
  
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) + 
  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)) +
  scale_color_identity() + add_flags +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Netherlands, Norway, Portugal, Poland

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP041"),
         geo %in% c("NL", "NO", "PL", "PT")) |>
  month_to_date() |>
  
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) + 
  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)) +
  scale_color_identity() + add_flags +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Romania, Serbia, Slovenia, Sweden

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP041"),
         geo %in% c("RO", "RS", "SE", "SI")) |>
  month_to_date() |>
  
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) + 
  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)) +
  scale_color_identity() + add_flags +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Slovakia, Turkey, United Kingdom

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP041"),
         geo %in% c("SK", "TR", "UK")) |>
  month_to_date() |>
  
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) + 
  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)) +
  scale_color_identity() + add_flags +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Rents, Housing

France

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP04", "CP041", "CP043", "CP045"),
         geo %in% c("FR")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Germany

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP04", "CP041", "CP043", "CP045"),
         geo %in% c("DE")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Italy

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP04", "CP041", "CP043", "CP045"),
         geo %in% c("IT")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Spain

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP04", "CP041", "CP043", "CP045"),
         geo %in% c("ES")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Greece

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP04", "CP041", "CP043", "CP045"),
         geo %in% c("EL")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Rents

France, Germany, Greece, Portugal

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP041"),
         geo %in% c("FR", "DE", "EL", "PT")) |>
  month_to_date() |>
  
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 200, 10)) +
  scale_color_identity() + add_flags +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Spain, Austria, Ireland, Switzerland

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP041"),
         geo %in% c("ES", "CH", "AT", "IE")) |>
  month_to_date() |>
  
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) + 
  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)) +
  scale_color_identity() + add_flags +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

United Kingdom, Iceland, Luxembourg, Norway

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP041"),
         geo %in% c("UK", "IS", "LU", "NO")) |>
  month_to_date() |>
  
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) + 
  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)) +
  scale_color_identity() + add_flags +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Countries

France

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP01", "CP02", "CP03", "CP04"),
         geo %in% c("FR")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP05", "CP06", "CP07", "CP08"),
         geo %in% c("FR")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP09", "CP10", "CP11", "CP12"),
         geo %in% c("FR")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Germany

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP01", "CP02", "CP03", "CP04"),
         geo %in% c("DE")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP05", "CP06", "CP07", "CP08"),
         geo %in% c("DE")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.8),
        legend.title = element_blank())

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP09", "CP10", "CP11", "CP12"),
         geo %in% c("DE")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Italy

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP01", "CP02", "CP03", "CP04"),
         geo %in% c("IT")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP05", "CP06", "CP07", "CP08"),
         geo %in% c("IT")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.8),
        legend.title = element_blank())

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP09", "CP10", "CP11", "CP12"),
         geo %in% c("IT")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Spain

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP01", "CP02", "CP03", "CP04"),
         geo %in% c("ES")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP05", "CP06", "CP07", "CP08"),
         geo %in% c("ES")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.8),
        legend.title = element_blank())

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP09", "CP10", "CP11", "CP12"),
         geo %in% c("ES")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Greece

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP01", "CP02", "CP03", "CP04"),
         geo %in% c("EL")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP05", "CP06", "CP07", "CP08"),
         geo %in% c("EL")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.8),
        legend.title = element_blank())

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP09", "CP10", "CP11", "CP12"),
         geo %in% c("EL")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Rents, All, Food, Restaurants

France

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP00", "CP041", "CP11", "CP01"),
         geo %in% c("FR")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Germany

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP00", "CP041", "CP11", "CP01"),
         geo %in% c("DE")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Spain

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP00", "CP041", "CP11", "CP01"),
         geo %in% c("ES")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Greece

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP00", "CP041", "CP11", "CP01"),
         geo %in% c("EL")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Belgium

Code

prc_hicp_cind |>
  filter(unit == "I15",
         coicop %in% c("CP00", "CP041", "CP11", "CP01"),
         geo %in% c("BE")) |>
  month_to_date() |>
  
  ggplot() + geom_line(aes(x = date, y = values, color = Coicop)) + 
  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)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())