HICP - country weights - prc_hicp_cow

Data - Eurostat

Author

François Geerolf

Info

Last observation: 2025 (N = 91)

First observation: 1996 (N = 66)

Last data update: 14 aoû 2026, 20:31. Last compile: 18 aoû 2026, 03:27

Structure

Compare series

France

Code

prc_hicp_cow |>
  filter(geo %in% c("FR")) |>
  year_to_date() |>
  
  mutate(values = values/1000) |>
  ggplot() + geom_line(aes(x = date, y = values, color = Statinfo)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 100, 1),
                     labels = percent_format(a = 1)) + 
  theme(legend.position = c(0.7, 0.5),
        legend.title = element_blank())

Germany

Code

prc_hicp_cow |>
  filter(geo %in% c("DE")) |>
  year_to_date() |>
  
  mutate(values = values/1000) |>
  ggplot() + geom_line(aes(x = date, y = values, color = Statinfo)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 100, 1),
                     labels = percent_format(a = 1)) + 
  theme(legend.position = c(0.7, 0.5),
        legend.title = element_blank())

Italy

Code

prc_hicp_cow |>
  filter(geo %in% c("IT")) |>
  year_to_date() |>
  
  mutate(values = values/1000) |>
  ggplot() + geom_line(aes(x = date, y = values, color = Statinfo)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 100, 1),
                     labels = percent_format(a = 1)) + 
  theme(legend.position = c(0.7, 0.5),
        legend.title = element_blank())

EA20

2022 Table

Code

prc_hicp_cow |>
  filter(time == "2022",
         statinfo == "COWEA20",
         geo != "EA19") |>
  
  select(-time) |>
  spread(statinfo, values) |>
  arrange(-COWEA20) |>
  mutate(cumsum = cumsum(COWEA20)) |>
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Geo))),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) |>
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

2019 Table

Code

prc_hicp_cow |>
  filter(time == "2019",
         statinfo == "COWEA20",
         geo != "EA19") |>
  
  select(-time) |>
  spread(statinfo, values) |>
  arrange(-COWEA20) |>
  mutate(cumsum = cumsum(COWEA20)) |>
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Geo))),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) |>
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Germany, France, Italy, Spain

Code

prc_hicp_cow |>
  filter(statinfo == "COWEA20",
         geo %in% c("DE", "FR", "IT", "ES")) |>
  year_to_date() |>
  
  left_join(colors, by = c("Geo" = "country")) |>
  mutate(values = values/1000) |>
  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_continuous(breaks = 0.01*seq(-100, 100, 2),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

Netherlands, Belgium, Austria, Portugal

Code

prc_hicp_cow |>
  filter(statinfo == "COWEA20",
         geo %in% c("NL", "BE", "AT", "PT")) |>
  year_to_date() |>
  
  left_join(colors, by = c("Geo" = "country")) |>
  mutate(values = values/1000) |>
  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_continuous(breaks = 0.01*seq(-100, 100, .5),
                     labels = percent_format(a = .1)) + 
  scale_color_identity() + add_flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

Greece, Finland, Ireland, Slovakia

Code

prc_hicp_cow |>
  filter(statinfo == "COWEA20",
         geo %in% c("EL", "FI", "IE", "SK")) |>
  year_to_date() |>
  
  left_join(colors, by = c("Geo" = "country")) |>
  mutate(values = values/1000) |>
  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_continuous(breaks = 0.01*seq(-100, 100, .5),
                     labels = percent_format(a = .1)) + 
  scale_color_identity() + add_flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

Lithuania, Slovenia, Luxembourg, Latvia

Code

prc_hicp_cow |>
  filter(statinfo == "COWEA20",
         geo %in% c("LT", "SI", "LU", "LV")) |>
  year_to_date() |>
  
  left_join(colors, by = c("Geo" = "country")) |>
  mutate(values = values/1000) |>
  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_continuous(breaks = 0.01*seq(-100, 100, .1),
                     labels = percent_format(a = .1)) + 
  scale_color_identity() + add_flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

Estonia, Cyprus, Malta

Code

prc_hicp_cow |>
  filter(statinfo == "COWEA20",
         geo %in% c("EE", "CY", "MT")) |>
  year_to_date() |>
  
  left_join(colors, by = c("Geo" = "country")) |>
  mutate(values = values/1000) |>
  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_continuous(breaks = 0.01*seq(-100, 100, .05),
                     labels = percent_format(a = .01)) + 
  scale_color_identity() + add_flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

All

2022

Code

prc_hicp_cow |>
  filter(time == "2022") |>
  
  select(-time) |>
  spread(statinfo, values) |>
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Geo))),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) |>
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

2019

Code

prc_hicp_cow |>
  filter(time == "2019") |>
  
  select(-time) |>
  spread(statinfo, values) |>
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Geo))),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) |>
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

PECO

Bulgarie, Croatie, Estonie, Hongrie, Lettonie, Lituanie, Pologne, Roumanie, Slovénie, Slovaquie, République tchèque.

List

Code

Geo_PECO <- c("Bulgaria", "Croatia", "Estonia", "Hungary", "Lithuania", "Poland",
              "Romania", "Slovenia", "Slovakia", "Czechia")

EA19

2022 Table

Code

prc_hicp_cow |>
  filter(time == "2022",
         statinfo == "COWEA20",
         geo != "EA19") |>
  
  filter(Geo %in% Geo_PECO) |>
  select(-time) |>
  spread(statinfo, values) |>
  arrange(-COWEA20) |>
  mutate(cumsum = cumsum(COWEA20)) |>
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Geo))),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) |>
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}