HICP (2015 = 100) - monthly data (monthly rate of change)

Data - Eurostat

Author

François Geerolf

Info

source dataset .html .RData

eurostat

prc_hicp_mmor

 2024-06-20 2024-06-18

Data on inflation

source dataset .html .RData

bis

CPI

 2024-06-19 2022-01-20

ecb

CES

 2024-06-19 2024-01-12

eurostat

nama_10_co3_p3

 2024-06-20 2024-06-08

eurostat

prc_hicp_cow

 2024-06-24 2024-06-08

eurostat

prc_hicp_ctrb

 2024-06-24 2024-06-08

eurostat

prc_hicp_inw

 2024-06-20 2024-06-23

eurostat

prc_hicp_manr

 2024-06-24 2024-06-08

eurostat

prc_hicp_midx

 2024-06-24 2024-06-23

eurostat

prc_hicp_mmor

 2024-06-20 2024-06-18

eurostat

prc_ppp_ind

 2024-06-20 2024-06-08

eurostat

sts_inpp_m

 2024-06-20 2024-06-18

eurostat

sts_inppd_m

 2024-06-20 2024-06-08

eurostat

sts_inppnd_m

 2024-06-20 2024-06-08

fred

cpi

 2024-06-20 2024-06-07

fred

inflation

 2024-06-18 2024-06-07

imf

CPI

 2024-06-20 2020-03-13

oecd

MEI_PRICES_PPI

 2024-06-20 2024-04-15

oecd

PPP2017

 2024-04-16 2023-07-25

oecd

PRICES_CPI

 2024-04-16 2024-04-15

wdi

FP.CPI.TOTL.ZG

 2023-01-15 2024-04-14

wdi

NY.GDP.DEFL.KD.ZG

 2024-04-14 2024-04-14

LAST_COMPILE

LAST_COMPILE
2024-06-24

Last

Code 
prc_hicp_mmor %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  head(1) %>%
  print_table_conditional()
time Nobs
2024M05 15934

unit

Code 
prc_hicp_mmor %>%
  left_join(unit, by = "unit") %>%
  group_by(unit, Unit) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
unit Unit Nobs
RCH_M Monthly rate of change 3417389

coicop

Code 
prc_hicp_mmor %>%
  left_join(coicop, by = "coicop") %>%
  group_by(coicop, Coicop) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

geo

Code 
prc_hicp_mmor %>%
  left_join(geo, by = "geo") %>%
  group_by(geo, Geo) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  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 .}

time

Code 
prc_hicp_mmor %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  print_table_conditional()

Last

Code 
last_time <- prc_hicp_mmor %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  head(1) %>%
  pull(time)

prc_hicp_mmor %>%
  filter(time == last_time) %>%
  select_if(function(col) length(unique(col)) > 1) %>%
  left_join(geo, by = "geo") %>%
  left_join(coicop, by = "coicop") %>%
  select(geo, Geo, coicop, Coicop, values) %>%
  print_table_conditional()

France, Germany, Italy, Spain, Europe

CP00

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP00",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP00",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP00",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 20, 1),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

AP_NRG

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "AP_NRG",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 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_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "AP_NRG",
         geo %in% c("FR", "ES", "IT", "EA19")) %>%
  # group_by(geo) %>%
  # summarise(Nobs = n()) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 5),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_4flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "AP_NRG",
         geo %in% c("FR", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 10),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_4flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

Last year

Code 
prc_hicp_mmor %>%
  filter(coicop == "AP_NRG",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= Sys.Date() -months(14)) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("Administered Prices, Energy") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "1 month"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 5),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

CP04521 - Natural gas and town gas

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP04521",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 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_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP04521",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 5),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP04521",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("Inflation, CP04521 - Natural gas and town gas (%)") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 5),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_4flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank()) +
  geom_hline(yintercept = 0, linetype = "dashed")

CP011 - Food

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP011",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 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_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP011",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 1),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP011",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("Inflation, CP011 - Alimentation (%)") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 1),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank()) +
  geom_hline(yintercept = 0, linetype = "dashed")

Last year

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP011",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= Sys.Date() -months(14)) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("Inflation, CP011 - Alimentation (%)") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "1 month"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 1),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

CP0111 - Bread and cereals

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0111",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 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_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0111",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 1),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0111",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 1),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

CP0112 - Meat

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0112",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 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_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0112",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 1),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0112",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 1),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

CP0114 - Milk, cheese and eggs

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0114",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 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_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0114",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 1),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0114",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 1),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

CP0117 - Vegetables

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0117",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 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_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0117",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 1),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0117",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 1),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

CP07332 - International flights

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP07332",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 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_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP07332",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 5),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP07332",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 10),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

CP0722 - Fuels and lubricants for personal transport equipment

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0722",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 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_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0722",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 10),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0722",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 10),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

CP072 - Operation of personal transport equipment

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP072",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 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_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP072",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 10),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP072",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 5),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

CP0451 - Electricity

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0451",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 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_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0451",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 5),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0451",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 10),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

CP0452 - Gas

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0452",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 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_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0452",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 5),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0452",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 10),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

CP0453 - Liquid fuels

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0453",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 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_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0453",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 5),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0453",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 10),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

CP0454 - Solid fuels

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0454",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 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_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0454",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 5),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0454",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 5),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_4flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

CP045 - Electricity, gas and other fuels

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP045",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 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_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP045",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 5),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP045",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 10),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

CP0455 - Heat energy

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0455",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 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_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0455",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 5),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "CP0455",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 10),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_3flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

NRG

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "NRG",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 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_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "NRG",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 5),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "NRG",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 10),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

SERV_TRA

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "SERV_TRA",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 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_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "SERV_TRA",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 5),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "SERV_TRA",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 1),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

FUEL

All

Code 
prc_hicp_mmor %>%
  filter(coicop == "FUEL",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2022, 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_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2016-

Code 
prc_hicp_mmor %>%
  filter(coicop == "FUEL",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2016-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2030, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 5),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())

2020-

Code 
prc_hicp_mmor %>%
  filter(coicop == "FUEL",
         geo %in% c("FR", "DE", "ES", "IT", "EA19")) %>%
  month_to_date %>%
  filter(date >= as.Date("2020-01-01")) %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(values = values/100) %>%
  ggplot(.) + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "3 months"),
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 100, 10),
                     labels = percent_format(a = 1)) + 
  scale_color_identity() + add_5flags +
  theme(legend.position = c(0.75, 0.90),
        legend.title = element_blank())