Last observation: M: 2015-12 (N = 131) · A: 2015 (N = 262)
First observation: A: 1996 (N = 246) · M: 1996-01 (N = 123)
Last data update: 17 aoû 2026, 00:31. Last compile: 18 aoû 2026, 01:36
Données - INSEE
Last observation: M: 2015-12 (N = 131) · A: 2015 (N = 262)
First observation: A: 1996 (N = 246) · M: 1996-01 (N = 123)
Last data update: 17 aoû 2026, 00:31. Last compile: 18 aoû 2026, 01:36
`IPCH-2005` |>
group_by(LAST_UPDATE) |>
summarise(Nobs = n()) |>
arrange(desc(LAST_UPDATE)) |>
print_table_conditional()| LAST_UPDATE | Nobs |
|---|---|
| 2016-01-13 | 33638 |
| 2015-02-19 | 2587 |
`IPCH-2005` |>
group_by(TITLE_FR, IDBANK) |>
summarise(Nobs = n()) |>
arrange(-Nobs) |>
print_table_conditional()`IPCH-2005` |>
group_by(REF_AREA) |>
summarise(Nobs = n()) |>
arrange(-Nobs) |>
print_table_conditional()| REF_AREA | Nobs |
|---|---|
| FE | 36225 |
`IPCH-2005` |>
group_by(TITLE_FR, IDBANK) |>
summarise(Nobs = n()) |>
arrange(-Nobs) |>
print_table_conditional()`IPCH-2005` |>
group_by(TIME_PERIOD) |>
summarise(Nobs = n()) |>
arrange(desc(TIME_PERIOD)) |>
print_table_conditional()`IPCH-2005` |>
rename(COICOP2016 = PRODUITS_IPCH2005) |>
bind_rows(`IPC-2015`) |>
filter(COICOP2016 %in% c("06", "T06"),
NATURE == "POND",
REF_AREA == "FE",
is.na(MENAGES_IPC) | MENAGES_IPC == "ENSEMBLE") |>
year_to_date() |>
group_by(INDICATEUR) |>
filter(date >= as.Date("1996-01-01")) |>
arrange(date) |>
ggplot() + ylab("Pondération de la Santé dans l'IPC, IPCH") + xlab("") + theme_minimal() +
geom_line(aes(x = date, y = OBS_VALUE/10000, color = Indicateur)) +
scale_color_manual(values = viridis(3)[1:2]) +
scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
theme(legend.position = c(0.7, 0.55),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(0, 300, 1),
labels = percent_format(accuracy = 1))