List of Idbanks

Data - INSEE

Info

source	dataset	Title	.html	.rData
insee	idbank_list	List of Idbanks	2025-12-25	2025-12-25

LAST_COMPILE

LAST_COMPILE
2025-12-27

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%
  |                                                                            
  |======================================                                |  54%
  |                                                                            
  |======================================================================| 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%
  |                                                                            
  |=================                                                     |  24%
  |                                                                            
  |================================                                      |  45%
  |                                                                            
  |======================================================================| 100%