source | dataset | .html | .RData |
---|---|---|---|
insee | reve-niv-vie-individu-activite | 2024-11-05 | NA |
Niveau de vie selon l’activité - Données annuelles
Data - INSEE
Info
Info
Données sur le pouvoir d’achat
source | dataset | .html | .RData |
---|---|---|---|
insee | CNA-2014-RDB | 2024-11-09 | 2024-11-09 |
insee | CNT-2014-CSI | 2024-11-09 | 2024-11-09 |
insee | conso-eff-fonction | 2024-11-09 | 2022-06-14 |
insee | econ-gen-revenu-dispo-pouv-achat-2 | 2024-11-09 | 2024-07-05 |
insee | reve-conso-evo-dep-pa | 2024-11-09 | 2024-09-05 |
insee | reve-niv-vie-individu-activite | 2024-11-05 | NA |
insee | reve-niv-vie-pouv-achat-trim | 2024-11-05 | 2024-09-05 |
insee | T_7401 | 2024-10-18 | 2024-10-18 |
insee | t_men_val | 2024-11-05 | 2024-09-02 |
insee | t_pouvachat_val | 2024-11-05 | 2024-09-04 |
insee | t_recapAgent_val | 2024-11-05 | 2024-09-02 |
insee | t_salaire_val | 2024-11-05 | 2024-09-02 |
oecd | HH_DASH | 2024-09-15 | 2023-09-09 |
year
Code
`reve-niv-vie-individu-activite-moyen` %>%
group_by(year) %>%
summarise(Nobs = n()) %>%
print_table_conditional()
year | Nobs |
---|---|
1996 | 10 |
1997 | 10 |
1998 | 10 |
1999 | 10 |
2000 | 10 |
2001 | 10 |
2002 | 10 |
2003 | 10 |
2004 | 10 |
2005 | 10 |
2006 | 10 |
2007 | 10 |
2008 | 10 |
2009 | 10 |
2010 | 10 |
20102 | 10 |
2011 | 10 |
2012 | 10 |
20123 | 10 |
2013 | 10 |
2014 | 10 |
2015 | 10 |
2016 | 10 |
2017 | 10 |
2018 | 10 |
2019 | 10 |
variable
Code
`reve-niv-vie-individu-activite-moyen` %>%
group_by(activite) %>%
summarise(Nobs = n()) %>%
print_table_conditional()
activite | Nobs |
---|---|
Actifs occupés | 26 |
Actifs âgés de 18 ans ou plus | 26 |
Autres inactifs (dont étudiants) | 26 |
Chômeurs | 26 |
Enfants de moins de 18 ans4 | 26 |
Ensemble | 26 |
Inactifs âgés de 18 ans ou plus | 26 |
Retraités | 26 |
Indépendants | 26 |
Salariés | 26 |
Niveau de vie moyen
Table 1996-2008, 2008-2019
Javascript
Code
`reve-niv-vie-individu-activite-moyen` %>%
mutate(year = as.numeric(year)) %>%
filter(year %in% c(1996, 2008, 2019)) %>%
select(activite, 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()
activite | 1996 | 2008 | 2019 | 1996-2008 | 2008-2019 |
---|---|---|---|---|---|
Indépendants | 25040 | 33930 | 33660 | 2.56 | -0.07 |
Salariés | 22280 | 26120 | 27360 | 1.33 | 0.42 |
Actifs âgés de 18 ans ou plus | 21670 | 26230 | 27300 | 1.60 | 0.36 |
Actifs occupés | 22620 | 26960 | 28140 | 1.47 | 0.39 |
Autres inactifs (dont étudiants) | 18500 | 21730 | 20850 | 1.35 | -0.38 |
Chômeurs | 14930 | 17570 | 17780 | 1.37 | 0.11 |
Enfants de moins de 18 ans4 | 18560 | 22540 | 22530 | 1.63 | 0.00 |
Ensemble | 20430 | 24720 | 25190 | 1.60 | 0.17 |
Inactifs âgés de 18 ans ou plus | 20100 | 24070 | 24050 | 1.51 | -0.01 |
Retraités | 20980 | 25170 | 25390 | 1.53 | 0.08 |
Graph
Code
`reve-niv-vie-individu-activite-moyen` %>%
filter(!is.na(activite)) %>%
mutate(year = as.numeric(year)) %>%
filter(year %in% c(1996, 2008, 2019)) %>%
spread(year, value) %>%
transmute(activite,
`1996-2008` = (`2008`/`1996`)^(1/12)-1,
`2008-2019` = (`2019`/`2008`)^(1/11)-1) %>%
gather(variable, value, -activite) %>%
+ geom_line(aes(x = activite, y = value, color = variable, group = variable)) +
ggplot theme_minimal() +
theme(legend.position = c(0.15, 0.55),
legend.title = element_blank(),
axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
xlab("") + ylab("Gain de niveau de vie en € constants/an") +
scale_y_continuous(breaks = 0.01*seq(-30, 50, 0.2),
labels = percent_format(accuracy = .1)) +
geom_hline(yintercept = 0, linetype = "dashed", color = "black")