Inflation - ICP

Données - BDF

Info

Structure

FREQ

REF_AREA

ADJUSTMENT

ICP_ITEM

STS_INSTITUTION

ICP_SUFFIX

Taux d’inflation (IPCH)

Taux de croissance annuel de l’indice des prix à la consommation harmonisé (IPCH), tous postes.

France, Allemagne, Italie, Espagne

ICP %>%
  
  
  filter(variable %in% c("ICP.M.FR.N.000000.4.ANR",
                          "ICP.M.DE.N.000000.4.ANR",
                          "ICP.M.IT.N.000000.4.ANR",
                          "ICP.M.ES.N.000000.4.ANR")) %>%
  left_join(colors, by = c("Ref_area" = "country")) %>%
  mutate(value = value/100) %>%
  na.omit %>%
  ggplot + geom_line(aes(x = date, y = value, color = color)) +
  geom_hline(yintercept = 0, linetype = "dashed", color = "black") +
  xlab("") + ylab("") + theme_minimal() + scale_color_identity() + add_4flags +
  scale_x_date(breaks = seq(1960, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(labels = percent_format(accuracy = 1))

Depuis 2015

ICP %>%
  
  
  filter(variable %in% c("ICP.M.FR.N.000000.4.ANR",
                          "ICP.M.DE.N.000000.4.ANR",
                          "ICP.M.IT.N.000000.4.ANR",
                          "ICP.M.ES.N.000000.4.ANR")) %>%
  left_join(colors, by = c("Ref_area" = "country")) %>%
  mutate(value = value/100) %>%
  filter(date >= as.Date("2015-01-01")) %>%
  na.omit %>%
  ggplot + geom_line(aes(x = date, y = value, color = color)) +
  geom_hline(yintercept = 0, linetype = "dashed", color = "black") +
  xlab("") + ylab("") + theme_minimal() + scale_color_identity() + add_4flags +
  scale_x_date(breaks = "1 year",
               labels = date_format("%Y")) +
  scale_y_continuous(labels = percent_format(accuracy = 1))

France et zone euro

ICP %>%
  
  filter(variable %in% c("ICP.M.FR.N.000000.4.ANR",
                          "ICP.M.U2.N.000000.4.ANR")) %>%
  mutate(Variable = ifelse(REF_AREA == "U2", "Zone euro", "France")) %>%
  mutate(value = value/100) %>%
  na.omit %>%
  ggplot + geom_line(aes(x = date, y = value, color = Variable)) +
  geom_hline(yintercept = 0, linetype = "dashed", color = "black") +
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1960, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(labels = percent_format(accuracy = 1)) +
  theme(legend.position = c(0.15, 0.85),
        legend.title = element_blank())

Dernier point

ICP %>%
  
  
  filter(ICP_SUFFIX == "ANR",
         ICP_ITEM == "000000",
         FREQ == "M",
         REF_AREA %in% c("FR", "DE", "IT", "ES", "U2")) %>%
  na.omit %>%
  group_by(Ref_area) %>%
  filter(date == max(date)) %>%
  ungroup() %>%
  select(Pays = Ref_area, date, value) %>%
  arrange(desc(value)) %>%
  print_table_conditional()

Pays	date	value
Allemagne	2022-08-31	10.9
Zone Euro (composition évolutive)	2022-08-31	9.9
Italie	2022-08-31	9.4
Espagne	2022-08-31	9.0
France	2022-08-31	6.2