| source | dataset | Title | .html | .rData |
|---|---|---|---|---|
| eurostat | prc_hicp_mmor | HICP (2015 = 100) - monthly data (monthly rate of change) | 2025-11-14 | 2025-11-15 |
HICP (2015 = 100) - monthly data (monthly rate of change)
Data - Eurostat
Info
Data on inflation
| source | dataset | Title | .html | .rData |
|---|---|---|---|---|
| eurostat | prc_hicp_mmor | HICP (2015 = 100) - monthly data (monthly rate of change) | 2025-11-14 | 2025-11-15 |
| bis | CPI | Consumer Price Index | 2025-10-11 | 2025-10-11 |
| ecb | CES | Consumer Expectations Survey | 2025-08-28 | 2025-05-24 |
| eurostat | nama_10_co3_p3 | Final consumption expenditure of households by consumption purpose (COICOP 3 digit) | 2025-11-16 | 2025-11-13 |
| eurostat | prc_hicp_cow | HICP - country weights | 2025-11-14 | 2025-11-16 |
| eurostat | prc_hicp_ctrb | Contributions to euro area annual inflation (in percentage points) | 2025-11-14 | 2025-11-16 |
| eurostat | prc_hicp_inw | HICP - item weights | 2025-11-14 | 2025-11-15 |
| eurostat | prc_hicp_manr | HICP (2015 = 100) - monthly data (annual rate of change) | 2025-11-14 | 2025-11-16 |
| eurostat | prc_hicp_midx | HICP (2015 = 100) - monthly data (index) | 2025-11-14 | 2025-11-15 |
| eurostat | prc_ppp_ind | Purchasing power parities (PPPs), price level indices and real expenditures for ESA 2010 aggregates | 2025-11-14 | 2025-11-16 |
| eurostat | sts_inpp_m | Producer prices in industry, total - monthly data | 2025-11-14 | 2025-11-15 |
| eurostat | sts_inppd_m | Producer prices in industry, domestic market - monthly data | 2025-11-14 | 2025-11-16 |
| eurostat | sts_inppnd_m | Producer prices in industry, non domestic market - monthly data | 2024-06-24 | 2025-11-16 |
| fred | cpi | Consumer Price Index | 2025-11-15 | 2025-11-15 |
| fred | inflation | Inflation | 2025-11-15 | 2025-11-15 |
| imf | CPI | Consumer Price Index - CPI | 2025-08-28 | 2020-03-13 |
| oecd | MEI_PRICES_PPI | Producer Prices - MEI_PRICES_PPI | 2025-09-29 | 2024-04-15 |
| oecd | PPP2017 | 2017 PPP Benchmark results | 2024-04-16 | 2023-07-25 |
| oecd | PRICES_CPI | Consumer price indices (CPIs) | 2024-04-16 | 2024-04-15 |
| wdi | FP.CPI.TOTL.ZG | Inflation, consumer prices (annual %) | 2023-01-15 | 2025-11-15 |
| wdi | NY.GDP.DEFL.KD.ZG | Inflation, GDP deflator (annual %) | 2025-11-15 | 2025-11-15 |
LAST_COMPILE
| LAST_COMPILE |
|---|
| 2025-11-16 |
Last
Code
prc_hicp_mmor %>%
group_by(time) %>%
summarise(Nobs = n()) %>%
arrange(desc(time)) %>%
head(1) %>%
print_table_conditional()| time | Nobs |
|---|---|
| 2025M10 | 102 |
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 | 3680121 |
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())