Info

Niveau de vie moyen par décile. html / xlsx

Code

i_g("bib/insee/reve-niv-vie-decile.png")

year

Code

`reve-niv-vie-decile` %>%
  group_by(year) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()

year	Nobs
1996	11
1997	11
1998	11
1999	11
2000	11
2001	11
2002	11
2003	11
2004	11
2005	11
2006	11
2007	11
2008	11
2009	11
2010	11
20101	11
2011	11
2012	11
20122	11
2013	11
2014	11
2015	11
2016	11
2017	11
2018	11
2019	11

decile

Code

`reve-niv-vie-decile` %>%
  left_join(decile, by = "Decile") %>%
  group_by(decile, Decile) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()

decile	Decile	Nobs
D1-	< 1er décile (A)	26
D1-D2	Entre le 1er et le 2e décile	26
D2-D3	Entre le 2e et le 3e décile	26
D3-D4	Entre le 3e et le 4e décile	26
D4-D5	Entre le 4e et le 5e décile	26
D5-D6	Entre le 5e et le 6e décile	26
D6-D7	Entre le 6e et le 7e décile	26
D7-D8	Entre le 7e et le 8e décile	26
D8-D9	Entre le 8e et le 9e décile	26
D9+	> 9e décile (B)	26
NA	Ensemble	26

Niveau de vie moyen

Table 1996-2008, 2008-2019

Javascript

Code

`reve-niv-vie-decile` %>%
  left_join(decile, by = "Decile") %>%
  mutate(year = as.numeric(year)) %>%
  filter(year %in% c(1996, 2008, 2019)) %>%
  select(decile, Decile, year, value) %>%
  spread(year, value) %>%
  mutate(`1996-2008` = round(100*((`2008`/`1996`)^(1/12)-1), 2),
         `2008-2019` = round(100*((`2019`/`2008`)^(1/11)-1), 2)) %>%
  print_table_conditional()

decile	Decile	1996	2008	2019	1996-2008	2008-2019
D1-	< 1er décile (A)	7420	9020	8710	1.64	-0.32
D1-D2	Entre le 1er et le 2e décile	10880	13260	13310	1.66	0.03
D2-D3	Entre le 2e et le 3e décile	13130	15870	16120	1.59	0.14
D3-D4	Entre le 3e et le 4e décile	15030	18060	18610	1.54	0.27
D4-D5	Entre le 4e et le 5e décile	16970	20140	20850	1.44	0.32
D5-D6	Entre le 5e et le 6e décile	19040	22400	23250	1.36	0.34
D6-D7	Entre le 6e et le 7e décile	21490	25040	25970	1.28	0.33
D7-D8	Entre le 7e et le 8e décile	24640	28600	29560	1.25	0.30
D8-D9	Entre le 8e et le 9e décile	29700	34650	35310	1.29	0.17
D9+	> 9e décile (B)	45970	60160	60170	2.27	0.00
NA	Ensemble	20430	24720	25190	1.60	0.17

png

Code

i_g("bib/insee/reve-niv-vie-decile_1.png")

Graph

Code

`reve-niv-vie-decile` %>%
  left_join(decile, by = "Decile") %>%
  filter(!is.na(decile)) %>%
  mutate(year = as.numeric(year)) %>%
  filter(year %in% c(1996, 2008, 2019)) %>%
  spread(year, value) %>%
  transmute(decile,
            `1996-2008` = (`2008`/`1996`)^(1/12)-1,
            `2008-2019` = (`2019`/`2008`)^(1/11)-1) %>%
  gather(variable, value, -decile) %>%
  ggplot + geom_line(aes(x = decile, y = value, color = variable, group = variable)) +
  theme_minimal() + scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.15, 0.55),
        legend.title = element_blank()) +
  xlab("") + ylab("Gain de niveau de vie moyen en € 'constants' / an, INSEE") +
  scale_y_continuous(breaks = 0.01*seq(-30, 50, 0.1),
                     labels = percent_format(accuracy = .1)) + 
  geom_hline(yintercept = 0, linetype = "dashed",  color = "black")