Indices des prix à la consommation - Base 1990 - IPC-1990

Données - INSEE

Auteur

François Geerolf

Last observation: déc. 1998 (N = 587) · 1998 (N = 1063)

First observation: 1990 (N = 468) · janv. 1990 (N = 468)

Last data update: 04 sept. 2026, 00:00

Last compile: 04 sept. 2026, 02:00

Structure

Last TIME_PERIOD

Code 
`IPC-1990` |>
  group_by(TIME_PERIOD) |>
  summarise(Nobs = n()) |>
  arrange(desc(TIME_PERIOD)) |>
  head(1) |>
  print_table_conditional()
TIME_PERIOD Nobs
1998-12 587

Pondérations d’indice

1992, 1994, 1996, 1998

Code 
`IPC-1990` |>
  filter(NATURE == "POND",
         TIME_PERIOD %in% c("1998", "1996", "1994", "1992", "1990"),
         MENAGES_IPC == "POPULATION-TOTALE") |>
  select_if(function(col) length(unique(col)) > 1) |>
  select(-IDBANK, -TITLE_FR, -TITLE_EN, -OBS_STATUS, -OBS_TYPE) |>
  
  
  spread(TIME_PERIOD, OBS_VALUE) |>
  print_table_conditional()

Tabac

Code 
`IPC-1990` |>
  filter(INDICATEUR == "IPC",
         MENAGES_IPC == "POPULATION-TOTALE",
         COICOP_1990 %in% c("14"),
         NATURE == "POND") |>
  year_to_date() |>
  mutate(OBS_VALUE = OBS_VALUE/10000) |>
  ggplot() + ylab("Poids du tabac dans l'indice des prix") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = OBS_VALUE)) +
  scale_color_manual(values = viridis(3)[1:2]) +
  scale_x_date(breaks = seq(1920, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 10, 0.1),
                     labels = percent_format(accuracy = .1))

Santé

Code 
`IPC-1990` |>
  filter(INDICATEUR == "IPC",
         MENAGES_IPC == "POPULATION-TOTALE",
         COICOP_1990 %in% c("5"),
         NATURE == "POND") |>
  year_to_date() |>
  mutate(OBS_VALUE = OBS_VALUE/10000) |>
  ggplot() + ylab("Poids de la santé dans l'indice des prix") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = OBS_VALUE)) +
  scale_color_manual(values = viridis(3)[1:2]) +
  scale_x_date(breaks = seq(1920, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 10, 0.1),
                     labels = percent_format(accuracy = .1))

2-digit

Boissons Alcoolisées, Logement, Restaurants et hôtels

Code 
`IPC-1990` |>
  filter(COICOP_1990 %in% c("0", "2", "11", "4"),
         REF_AREA == "FE",
         NATURE == "INDICE",
         FREQ == "M") |>
  month_to_date() |>
  
  group_by(COICOP_1990) |>
  arrange(date) |>
  mutate(OBS_VALUE = 100*OBS_VALUE/OBS_VALUE[1]) |>
  ggplot() + ylab("Indice des prix") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = OBS_VALUE, color = COICOP_1990)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  scale_x_date(breaks = seq(1920, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.85),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(100, 200, 1),
                     labels = dollar_format(accuracy = 1, prefix = ""))

Transports, Enseignement, B&S Divers

Code 
`IPC-1990` |>
  filter(COICOP_1990 %in% c("00", "1", "7", "12"),
         REF_AREA == "FE",
         NATURE == "INDICE",
         FREQ == "M") |>
  month_to_date() |>
  
  group_by(COICOP_1990) |>
  arrange(date) |>
  mutate(OBS_VALUE = 100*OBS_VALUE/OBS_VALUE[1]) |>
  ggplot() + ylab("Indice des prix") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = OBS_VALUE, color = COICOP_1990)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.85),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(100, 300, 1),
                     labels = dollar_format(accuracy = 1, prefix = ""))

Alimentation, Habillement, Meubles

Code 
`IPC-1990` |>
  filter(COICOP_1990 %in% c("00", "5", "1", "3"),
         REF_AREA == "FE",
         NATURE == "INDICE",
         FREQ == "M") |>
  month_to_date() |>
  
  group_by(COICOP_1990) |>
  arrange(date) |>
  mutate(OBS_VALUE = 100*OBS_VALUE/OBS_VALUE[1]) |>
  ggplot() + ylab("Indice des prix") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = OBS_VALUE, color = COICOP_1990)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  scale_x_date(breaks = seq(1920, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.85),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(100, 300, 1),
                     labels = dollar_format(accuracy = 1, prefix = ""))

Santé, Communications, Loisirs

Code 
`IPC-1990` |>
  filter(COICOP_1990 %in% c("00", "6", "9", "8"),
         REF_AREA == "FE",
         NATURE == "INDICE",
         FREQ == "M") |>
  month_to_date() |>
  
  group_by(COICOP_1990) |>
  arrange(date) |>
  mutate(OBS_VALUE = 100*OBS_VALUE/OBS_VALUE[1]) |>
  ggplot() + ylab("Indice des prix") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = OBS_VALUE, color = COICOP_1990)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.2, 0.85),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(10, 300, 10),
                     labels = dollar_format(accuracy = 1, prefix = ""))