2.101 – Revenu disponible brut des ménages et évolution du pouvoir d’achat par personne, par ménage et par unité de consommation (En milliards euros et %)

Data - INSEE

Author

François Geerolf

Info

2021

Code 
i_g("bib/insee/FPORSOC22/F29/table2.png")

2020

Code 
i_g("bib/insee/FPS2021/revenu-primaire-RDB.png")

2020

  • Comptes de la Nation 2020. html

2019

  • Comptes de la Nation 2019. html

Line

Code 
T_2101 %>%
  group_by(line, variable, Variable) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional
line variable Variable Nobs
1 D11 Salaires et traitements bruts 65
2 D613CE Cotisations sociales effectives obligatoires à la charge des salariés 65
3 D11X613CE Salaires et traitements nets 65
4 D62 Prestations sociales autres que transferts sociaux en nature 65
5 RSS Revenus salariaux et sociaux 65
6 B2A3G Excédent brut d’exploitation et revenu mixte brut 65
7 D613NSI Cotisations des non salariés 65
8 B6G Revenu disponible brut 65
9 B6G Revenu disponible brut 65
10 P31 Dépense de consommation individuelle 65
11 _PAM Pouvoir d’achat du rdb des ménages (**) 64
12 _PAM_PERSONNE Pouvoir d’achat du rdb par personne 64
13 _PAM_MENAGE Pouvoir d’achat du rdb par ménage 64
14 _PAM_UC Pouvoir d’achat du rdb par unité de consommation 64
15 POP Population 65
16 MENF Moyenne annuelle du nombre de ménages en France entière 65
17 UC Unités de consommation 65

Salaires bruts, salaires nets

% du PIB

Code 
T_2101 %>%
  filter(line %in% c(1, 3)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Variable)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks ="5 years",
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 1),
                     labels = percent_format(accuracy = 1)) +
  theme(legend.position = c(0.2, 0.15),
        legend.title = element_blank())

% du RDB

Code 
T_2101 %>%
  filter(line %in% c(1, 3)) %>%
  left_join(rdb, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / rdb, color = Variable)) +
  theme_minimal() + xlab("") + ylab("% du RDB") +
  scale_x_date(breaks ="5 years",
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 1),
                     labels = percent_format(accuracy = 1)) +
  theme(legend.position = c(0.15, 0.93),
        legend.title = element_blank())

EBE, Prestations sociales

% du PIB

Code 
T_2101 %>%
  filter(line %in% c(4, 6)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Variable)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks ="5 years",
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 1),
                     labels = percent_format(accuracy = 1)) +
  theme(legend.position = c(0.5, 0.9),
        legend.title = element_blank())

% du RDB

Code 
T_2101 %>%
  filter(line %in% c(4, 6)) %>%
  left_join(rdb, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / rdb, color = Variable)) +
  theme_minimal() + xlab("") + ylab("% du RDB") +
  scale_x_date(breaks ="5 years",
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 1),
                     labels = percent_format(accuracy = 1)) +
  theme(legend.position = c(0.5, 0.9),
        legend.title = element_blank())