Last observation: 2019 (N = 37)
First observation: 1996 (N = 37)
Last data update: 02 août 2026, 11:04
Last compile: 24 sept. 2026, 01:07
date
Code
ip1875 |>
group_by(date) |>
summarise(Nobs = n()) |>
print_table_conditional()| date | Nobs |
|---|---|
| 1996-01-01 | 37 |
| 1997-01-01 | 37 |
| 1998-01-01 | 37 |
| 1999-01-01 | 37 |
| 2000-01-01 | 37 |
| 2001-01-01 | 37 |
| 2002-01-01 | 37 |
| 2003-01-01 | 37 |
| 2004-01-01 | 37 |
| 2005-01-01 | 37 |
| 2006-01-01 | 37 |
| 2007-01-01 | 37 |
| 2008-01-01 | 37 |
| 2009-01-01 | 37 |
| 2010-01-01 | 37 |
| 2011-01-01 | 37 |
| 2012-01-01 | 37 |
| 2013-01-01 | 37 |
| 2014-01-01 | 37 |
| 2015-01-01 | 37 |
| 2016-01-01 | 37 |
| 2017-01-01 | 37 |
| 2018-01-01 | 37 |
| 2019-01-01 | 37 |
variable
Code
ip1875 |>
group_by(variable, sheet) |>
summarise(Nobs = n()) |>
print_table_conditional()1998-2008, 2008-2018
Table
Code
ip1875 |>
mutate(year = year(date)) |>
select(-date) |>
filter(sheet == "fig1_compl",
year %in% c(1998, 2008, 2018)) %>%
select_if(~ n_distinct(.) > 1) |>
spread(year, value) |>
print_table_conditional()| variable | 1998 | 2008 | 2018 |
|---|---|---|---|
| decile1 | 85.1 | 100 | 97.1 |
| decile1_avant | 80.6 | 100 | 88.6 |
| decile2 | 84.9 | 100 | 97.5 |
| decile2_avant | 80.9 | 100 | 97.3 |
| decile3 | 85.1 | 100 | 98.7 |
| decile3_avant | 83.5 | 100 | 101.1 |
| decile4 | 85.7 | 100 | 100.0 |
| decile4_avant | 85.3 | 100 | 103.0 |
| decile6 | 87.5 | 100 | 101.7 |
| decile6_avant | 88.2 | 100 | 105.2 |
| decile7 | 88.0 | 100 | 101.5 |
| decile7_avant | 88.7 | 100 | 105.2 |
| decile8 | 88.2 | 100 | 101.9 |
| decile8_avant | 89.8 | 100 | 106.1 |
| decile9 | 86.2 | 100 | 100.7 |
| decile9_avant | 88.0 | 100 | 105.4 |
| mediane | 86.6 | 100 | 101.0 |
| mediane_avant | 87.0 | 100 | 104.1 |
Niveau de vie
Decile 1, Mediane, Decile 9
IPC
Code
ip1875 |>
filter(sheet == "fig1",
variable %in% c("decile1", "mediane", "decile9")) |>
group_by(variable) |>
mutate(value = 100*value/value[date == as.Date("1996-01-01")]) |>
ggplot() + ylab("Indice de niveau de vie") + xlab("") + theme_minimal() +
geom_line(aes(x = date, y = value, color = variable)) +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
theme(legend.position = c(0.15, 0.85),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(10, 300, 2),
labels = dollar_format(accuracy = 1, prefix = ""))
IPCH
Code
IPC_IPCH_adjustment <- `IPCH-IPC-2015-ensemble` |>
group_by(date) |>
summarise(OBS_VALUE = 100*OBS_VALUE[INDICATEUR == "IPCH"]/OBS_VALUE[INDICATEUR == "IPC"]) |>
filter(month(date) == 1,
date <= as.Date("2019-01-01")) |>
select(date, IPC_IPCH_adjustment = OBS_VALUE)
ip1875 |>
filter(sheet == "fig1",
variable %in% c("decile1", "mediane", "decile9")) |>
group_by(variable) |>
mutate(value = 100*value/value[date == as.Date("1996-01-01")]) |>
left_join(IPC_IPCH_adjustment, by = "date") |>
ggplot() + ylab("Indice de niveau de vie (IPCH)") + xlab("") + theme_minimal() +
geom_line(aes(x = date, y = 100*value/IPC_IPCH_adjustment, color = variable)) +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
theme(legend.position = c(0.15, 0.85),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(10, 300, 2),
labels = dollar_format(accuracy = 1, prefix = ""))
Decile 1, Decile 2, Decile 3
Code
ip1875 |>
filter(sheet == "fig1_compl",
variable %in% c("decile2", "decile3", "decile1")) |>
group_by(variable) |>
mutate(value = 100*value/value[date == as.Date("1996-01-01")]) |>
ggplot() + ylab("Indice de niveau de vie") + xlab("") + theme_minimal() +
geom_line(aes(x = date, y = value, color = variable)) +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
theme(legend.position = c(0.15, 0.85),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(10, 300, 2),
labels = dollar_format(accuracy = 1, prefix = ""))
Decile 4, Decile 5, Decile 6
Code
ip1875 |>
filter(sheet == "fig1_compl",
variable %in% c("decile4", "mediane", "decile6")) |>
group_by(variable) |>
mutate(value = 100*value/value[date == as.Date("1996-01-01")]) |>
ggplot() + ylab("Indice de niveau de vie") + xlab("") + theme_minimal() +
geom_line(aes(x = date, y = value, color = variable)) +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
theme(legend.position = c(0.15, 0.85),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(10, 300, 2),
labels = dollar_format(accuracy = 1, prefix = ""))
Decile 7, Decile 8, Decile 9
Code
ip1875 |>
filter(sheet == "fig1_compl",
variable %in% c("decile7", "decile8", "decile9")) |>
group_by(variable) |>
mutate(value = 100*value/value[date == as.Date("1996-01-01")]) |>
ggplot() + ylab("Indice de niveau de vie") + xlab("") + theme_minimal() +
geom_line(aes(x = date, y = value, color = variable)) +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
theme(legend.position = c(0.15, 0.85),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(10, 300, 2),
labels = dollar_format(accuracy = 1, prefix = ""))
Tous Déciles
Code
ip1875 |>
filter(sheet == "fig1_compl",
!grepl("avant", variable)) |>
mutate(variable = ifelse(variable == "mediane", "decile5 (mediane)", variable)) |>
group_by(variable) |>
mutate(value = 100*value/value[date == as.Date("1996-01-01")]) |>
ggplot() + ylab("Indice de niveau de vie") + xlab("") + theme_minimal() +
geom_line(aes(x = date, y = value, color = variable)) +
scale_color_manual(values = viridis(10)[1:9]) +
scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
theme(legend.position = c(0.8, 0.3),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(10, 300, 2),
labels = dollar_format(accuracy = 1, prefix = ""))