List of Idbanks - idbank_list

Données - INSEE

Info

LAST_COMPILE

LAST_COMPILE
2026-09-15

List Idbanks

idbank_list |>
  select(2, 1, 3) |>
  print_table_conditional()

Inflation

1996-

get_insee_idbank("001764363", "001762489") |>
  arrange(DATE) |>
  filter(DATE >= as.Date("1996-01-01")) |>
  mutate(OBS_VALUE = 100*OBS_VALUE/OBS_VALUE[DATE == as.Date("1996-01-01")]) |>
  ggplot() + ylab("Indice des prix, Ensemble") + xlab("") + theme_minimal() +
  geom_line(aes(x = DATE, y = OBS_VALUE, color = TITLE_FR)) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank()) +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(10, 300, 5),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  geom_label(data = . %>% filter(DATE == max(DATE)), aes(x = DATE, y = OBS_VALUE, label = round(OBS_VALUE, 1), color = TITLE_FR))

# 
  |                                                                            
  |                                                                      |   0%
  |                                                                            
  |===============================                                       |  45%
  |                                                                            
  |======================================================================| 100%

2017-

get_insee_idbank("001764363", "001762489") |>
  arrange(DATE) |>
  filter(DATE >= as.Date("2017-01-01")) |>
  mutate(OBS_VALUE = 100*OBS_VALUE/OBS_VALUE[DATE == as.Date("2017-01-01")]) |>
  ggplot() + ylab("Indice des prix, Ensemble") + xlab("") + theme_minimal() +
  geom_line(aes(x = DATE, y = OBS_VALUE, color = TITLE_FR)) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank()) +
  scale_x_date(breaks = seq(1920, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(10, 300, 2),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  geom_label(data = . %>% filter(DATE == max(DATE)), aes(x = DATE, y = OBS_VALUE, label = round(OBS_VALUE, 1), color = TITLE_FR))

PIB, PIB réel

1996-

get_insee_idbank("011779991", "011779992") |>
  arrange(DATE) |>
  filter(DATE >= as.Date("1996-01-01")) |>
  mutate(OBS_VALUE = 100*OBS_VALUE/OBS_VALUE[DATE == as.Date("1996-01-01")],
         TITLE_FR = str_replace_all(TITLE_FR, " - ", " -\n")) |>
  ggplot() + ylab("Indice des prix, Ensemble") + xlab("") + theme_minimal() +
  geom_line(aes(x = DATE, y = OBS_VALUE, color = TITLE_FR)) +
  theme(legend.position = c(0.3, 0.8),
        legend.title = element_blank()) +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(10, 300, 5),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  geom_label(data = . %>% filter(DATE == max(DATE)), aes(x = DATE, y = OBS_VALUE, label = round(OBS_VALUE, 1), color = TITLE_FR))

# 
  |                                                                            
  |                                                                      |   0%
  |                                                                            
  |===================================                                   |  50%
  |                                                                            
  |======================================================================| 100%

2017-

get_insee_idbank("011779991", "011779992") |>
  arrange(DATE) |>
  filter(DATE >= as.Date("2017-01-01")) |>
  mutate(OBS_VALUE = 100*OBS_VALUE/OBS_VALUE[DATE == as.Date("2017-01-01")],
         TITLE_FR = str_replace_all(TITLE_FR, " - ", " -\n")) |>
  ggplot() + ylab("PIB nominal, réel") + xlab("") + theme_minimal() +
  geom_line(aes(x = DATE, y = OBS_VALUE, color = TITLE_FR)) +
  theme(legend.position = c(0.3, 0.8),
        legend.title = element_blank()) +
  scale_x_date(breaks = seq(1920, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(10, 300, 5),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  geom_label(data = . %>% filter(DATE == max(DATE)), aes(x = DATE, y = OBS_VALUE, label = round(OBS_VALUE, 1), color = TITLE_FR))

Tous

2017-

get_insee_idbank("011779992", "001764363", "001762489") |>
  arrange(DATE) |>
  filter(DATE >= as.Date("2017-01-01")) |>
  mutate(OBS_VALUE = 100*OBS_VALUE/OBS_VALUE[DATE == as.Date("2017-01-01")],
         TITLE_FR = str_replace_all(TITLE_FR, " - ", " -\n")) |>
  ggplot() + ylab("PIB nominal, réel") + xlab("") + theme_minimal() +
  geom_line(aes(x = DATE, y = OBS_VALUE, color = TITLE_FR)) +
  theme(legend.position = c(0.3, 0.8),
        legend.title = element_blank()) +
  scale_x_date(breaks = seq(1920, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(10, 300, 5),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  geom_label(data = . %>% filter(DATE == max(DATE)), aes(x = DATE, y = OBS_VALUE, label = round(OBS_VALUE, 1), color = TITLE_FR))

# 
  |                                                                            
  |                                                                      |   0%
  |                                                                            
  |==============                                                        |  20%
  |                                                                            
  |================================                                      |  46%
  |                                                                            
  |======================================================================| 100%