Perceptions et Anticipations d’Inflation - PAI

Données - BDF

Auteur

François Geerolf

🇬🇧 English version

Last observation: août 2026 (N = 3)

First observation: janv. 2004 (N = 3)

Last data update: 11 sept. 2026, 23:52

Last compile: 20 sept. 2026, 23:55

Structure

Graphiques

Anticipations d’inflation (indicateur presse)

Depuis 2004

Code 
PAI |>
  filter(variable %in% c("PAI.M.FR.N.PR._Z.INPR01.TX", "PAI.M.FR.N.PR._Z.INPR03.TX")) |>
  mutate(label = case_when(
    grepl("INPR01", variable) ~ "Indicateur brut",
    grepl("INPR03", variable) ~ "Indicateur lissé (moyenne mobile 24 mois)")) |>
  ggplot() + geom_line(aes(x = date, y = value, color = label)) +
  theme_minimal() + xlab("") + ylab("Indice") +
  scale_x_date(breaks = seq(2004, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.9),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1),
        legend.title = element_blank())

Depuis 2015

Code 
PAI |>
  filter(variable %in% c("PAI.M.FR.N.PR._Z.INPR01.TX", "PAI.M.FR.N.PR._Z.INPR03.TX"),
         date >= as.Date("2015-01-01")) |>
  mutate(label = case_when(
    grepl("INPR01", variable) ~ "Indicateur brut",
    grepl("INPR03", variable) ~ "Indicateur lissé (moyenne mobile 24 mois)")) |>
  ggplot() + geom_line(aes(x = date, y = value, color = label)) +
  theme_minimal() + xlab("") + ylab("Indice") +
  scale_x_date(breaks = seq(2004, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.9),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1),
        legend.title = element_blank()) +
  geom_label_repel(data = . %>% filter(date == max(date)),
             aes(x = date, y = value, color = label, label = round(value, 0)),
             show.legend = F)

Nombre d’articles de presse sur les prix

Code 
PAI |>
  filter(variable == "PAI.M.FR.N.PR._Z.INPR02.TX") |>
  ggplot() + geom_line(aes(x = date, y = value)) +
  theme_minimal() + xlab("") + ylab("Nombre d'articles") +
  scale_x_date(breaks = seq(2004, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

Séries

Code 
variable %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}