En 2019, le niveau de vie médian augmente nettement et le taux de pauvreté diminue - ip1875

Data - INSEE

Author

François Geerolf

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, 2025, 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, 2025, 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, 2025, 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, 2025, 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, 2025, 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, 2025, 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 = ""))