7.401 – Compte des ménages (S14) (En milliards d’euros)

Data - INSEE

Auteur

François Geerolf

Info

source dataset Title .html .rData
insee T_7401 7.401 – Compte des ménages (S14) (En milliards d'euros) 2025-12-25 2025-12-14

Données sur le pouvoir d’achat

source dataset Title .html .rData
insee CNA-2014-RDB Revenu et pouvoir d’achat des ménages 2025-12-25 2025-12-27
insee CNT-2014-CSI Comptes de secteurs institutionnels 2025-12-25 2025-12-27
insee T_7401 7.401 – Compte des ménages (S14) (En milliards d'euros) 2025-12-25 2025-12-14
insee conso-eff-fonction Consommation effective des ménages par fonction 2025-12-25 2022-06-14
insee econ-gen-revenu-dispo-pouv-achat-2 Revenu disponible brut et pouvoir d’achat - Données annuelles 2025-12-25 2025-12-27
insee reve-conso-evo-dep-pa Évolution de la dépense et du pouvoir d’achat des ménages - Données annuelles de 1960 à 2023 2025-12-25 2024-12-11
insee reve-niv-vie-individu-activite Niveau de vie selon l'activité - Données annuelles 2025-12-25 2025-12-22
insee reve-niv-vie-pouv-achat-trim Évolution du revenu disponible brut et du pouvoir d’achat - Données trimestrielles 2025-12-25 2025-12-27
insee t_men_val Revenu, pouvoir d'achat et comptes des ménages - Valeurs aux prix courants 2025-12-25 2025-12-27
insee t_pouvachat_val Pouvoir d'achat et ratios des comptes des ménages 2025-12-25 2025-12-27
insee t_recapAgent_val Récapitulatif des séries des comptes d'agents 2025-12-25 2025-12-27
insee t_salaire_val Salaire moyen par tête - SMPT (données CVS) 2025-12-25 2025-12-27
oecd HH_DASH Household Dashboard 2025-12-26 2023-09-09

Bibliographie en lien

Français

« Mesurer “le” pouvoir d’achat », F. Geerolf, Document de travail, 9 juillet 2024. [ html] [ pdf] [ handouts] [ pdf] [ html] [ github]

« La taxe inflationniste, le pouvoir d’achat, le taux d’épargne et le déficit public », F. Geerolf, Document de travail, 9 juillet 2024. [ html] [ pdf] [ handouts] [ pdf] [ html] [ github]

« Inflation en France : IPC ou IPCH ? », F. Geerolf, Document de travail, 9 juillet 2024. [ html] [ pdf] [ handouts] [ pdf] [ html] [ github]

LAST_COMPILE

LAST_COMPILE
2025-12-27

Last

Code 
T_7401 %>%
  group_by(year) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(year)) %>%
  head(1) %>%
  print_table_conditional()
year Nobs
2024 102

Exemple

Début

Code 
ig_b("insee", "t_7401_1")

Milieu

Code 
ig_b("insee", "t_7401_2")

Fin

Code 
ig_b("insee", "t_7401_3")

All

Code 
ig_b("insee", "t_7401_bind")

Sources

7.401 – Compte des ménages (S14) (En milliards d’euros):

  • Comptes de la Nation 2022. html / xlsx

  • Comptes de la Nation 2020. html / xlsx

  • Comptes de la Nation 2019. html

Données reliées

  • 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 d’euros et %) - T_2101. html
  • 2.104 – Compte des ménages simplifié et ratios d’épargne (En milliards d’euros et %) - t_2104. html
  • 2.104 – Compte des ménages simplifié et ratios d’épargne (En milliards d’euros et %) - t_2104_2018. html
  • 7.401 – Compte des ménages (S14) (En milliards d’euros) - T_7401. html
  • Comptes des secteurs institutionnels - CNA-2014-CSI. html

Concepts

Revenu primaire au RDB des ménages

2021

Code 
ig_b("insee", "FPORSOC22", "F29", "table2")

2020

Code 
ig_b("insee", "FPS2021", "revenu-primaire-RDB")

Composition du RDB des ménages

Code 
ig_b("insee", "FPS2021", "EC4", "tab1")

Prestations de protection sociale en 2018

Code 
ig_b("insee", "TEF2020", "057", "prestations-sociales")

line, Line

Code 
T_7401 %>%
  group_by(line, variable, Variable) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()

gdp

Code 
gdp %>%
  print_table_conditional()

Croissance, 2017-2024

Code 
T_7401 %>%
  filter(year %in% c("2017", "2024")) %>%
  spread(year, value) %>%
  mutate(croissance = round(100*(`2024`/`2017`-1), 2)) %>%
  arrange(desc(croissance)) %>%
  print_table_conditional()

Table in 2000, 2005, 2010, 2015, 2020, 2023

Milliards

Code 
T_7401 %>%
  filter(year %in% c(paste0(seq(1980, 2100, 20)), 2023)) %>%
  spread(year, value) %>%
  arrange(line) %>%
  mutate_at(vars(-line, -variable, -Variable), funs(round(.))) %>%
  print_table_conditional()

%

Code 
T_7401 %>%
  left_join(gdp, by = "year") %>%
  mutate(value_gdp = round(100 * value / gdp, 1)) %>%
  filter(year %in% c(paste0(seq(1980, 2100, 20)), 2023)) %>%
  select(-value, -gdp) %>%
  spread(year, value_gdp) %>%
  arrange(line) %>%
  print_table_conditional()

D5 (line 52), D4 (line 30), B3g (line 22)

Tous

Code 
T_7401 %>%
  filter(line %in% c(52, 30, 22)) %>%
  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 = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 2),
                     labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.6, 0.9),
        legend.title = element_blank())

1995-

Code 
T_7401 %>%
  filter(line %in% c(52, 30, 22)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  filter(date >= as.Date("1995-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Variable)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1920, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 1),
                     labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.3, 0.9),
        legend.title = element_blank())

Revenu Disponible Brut (RDB), Ajusté (RDBA)

Code 
T_7401 %>%
  filter(variable %in% c("B6G", "B7G")) %>%
  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 = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 2),
                     labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.2, 0.15),
        legend.title = element_blank())

Revenu Disponible brut, Solde des revenus primaires bruts

Code 
T_7401 %>%
  filter(variable %in% c("B6G", "B5G", "B7G")) %>%
  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 = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 2),
                     labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.2, 0.15),
        legend.title = element_blank())

Consommation finale effective, Dépense de consommation individuelle

Code 
T_7401 %>%
  filter(variable %in% c("P31", "P4")) %>%
  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 = seq(1920, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 2),
                     labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.7, 0.6),
        legend.title = element_blank())

Dividendes

% du PIB

Code 
T_7401 %>%
  filter(variable %in% c("D42")) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value / gdp)) +
  theme_minimal() + xlab("") + ylab("Revenus Distributés des Sociétés - Dividendes (% du PIB)") +
  scale_x_date(breaks =seq.Date(from = as.Date("1947-01-01"), to = Sys.Date(), by = "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.9),
        legend.title = element_blank())

Milliards

Linéaire

Code 
T_7401 %>%
  filter(variable %in% c("D42")) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value)) +
  theme_minimal() + xlab("") + ylab("Revenus Distributés des Sociétés - Dividendes (Milliards)") +
  scale_x_date(breaks =seq.Date(from = as.Date("1947-01-01"), to = Sys.Date(), by = "5 years"),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-10, 100, 10)) +
  theme(legend.position = c(0.2, 0.9),
        legend.title = element_blank())

Log

Code 
T_7401 %>%
  filter(variable %in% c("D42")) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value)) +
  theme_minimal() + xlab("") + ylab("Revenus Distributés des Sociétés - Dividendes (Milliards)") +
  scale_x_date(breaks =seq.Date(from = as.Date("1947-01-01"), to = Sys.Date(), by = "5 years"),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = c(c(1, 2, 3, 5, 8), seq(-10, 100, 10))) +
  theme(legend.position = c(0.2, 0.9),
        legend.title = element_blank())

Epargne brute et nette

All

Code 
T_7401 %>%
  filter(variable %in% c("B8G", "B8N"),
         line %in% c(100, 101)) %>%
  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.9),
        legend.title = element_blank())

1978-

Code 
T_7401 %>%
  filter(variable %in% c("B8G", "B8N"),
         line %in% c(100, 101)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  filter(date >= as.Date("1978-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Variable)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 1),
                     labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.8, 0.9),
        legend.title = element_blank())

Epargne brute et nette, CCF

All

Code 
T_7401 %>%
  filter(variable %in% c("B8G", "B8N", "P51C"),
         line %in% c(100, 101, 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.2, 0.9),
        legend.title = element_blank())

1978-

Code 
T_7401 %>%
  filter(variable %in% c("B8G", "B8N", "P51C"),
         line %in% c(100, 101, 6)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  filter(date >= as.Date("1978-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Variable)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 1),
                     labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.8, 0.9),
        legend.title = element_blank())

CCF

All

Code 
T_7401 %>%
  filter(variable %in% c("P51C"),
         line %in% c(100, 101, 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.2, 0.9),
        legend.title = element_blank())

1999-

Code 
T_7401 %>%
  filter(variable %in% c("P51C"),
         line %in% c(100, 101, 6)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  filter(date >= as.Date("1999-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Variable)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, .1),
                     labels = percent_format(accuracy = .1)) +
  
  theme(legend.position = c(0.8, 0.9),
        legend.title = element_blank())

Revenus de la propriété

All

Code 
T_7401 %>%
  filter(variable %in% c("D4", "D42", "D44"),
         line %in% c(30, 32, 35)) %>%
  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.9),
        legend.title = element_blank())

1995-

Code 
T_7401 %>%
  filter(variable %in% c("D4", "D42", "D44"),
         line %in% c(30, 32, 35)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  filter(date >= as.Date("1995-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Variable)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 2), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 1),
                     labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.8, 0.9),
        legend.title = element_blank())

2017-

% du PIB

Code 
T_7401 %>%
  filter(variable %in% c("D4", "D42", "D44"),
         line %in% c(30, 32, 35)) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  filter(date >= as.Date("2017-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Variable)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 1), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 1),
                     labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.8, 0.9),
        legend.title = element_blank())

Base 100

Code 
T_7401 %>%
  filter(variable %in% c("D4", "D42")) %>%
  year_to_date2 %>%
  filter(date >= as.Date("2017-01-01")) %>%
  group_by(Variable, line) %>%
  arrange(date) %>%
  mutate(value = 100*value/value[1]) %>%
  ggplot + geom_line(aes(x = date, y = value, color = paste0(Variable, " - Ligne ", line))) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 1), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 1000, 50)) +

  theme(legend.position = c(0.3, 0.7),
        legend.title = element_blank())

Salaires, Rémunération des salariés

Montant

All

Linear

Code 
T_7401 %>%
  filter(line %in% c(18, 26, 42)) %>%
  bind_rows(T_2101 %>%
              filter(line == 3) %>%
              mutate(Variable = "Salaires et traitements nets")) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value, color = Variable)) +
  theme_minimal() + xlab("") + ylab("Milliards d'€") +
  scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 10000, 100),
                     labels = dollar_format(accuracy = 1, pre = "", su ="Mds€")) +
  theme(legend.position = c(0.3, 0.9),
        legend.title = element_blank())

Log

Code 
T_7401 %>%
  filter(line %in% c(18, 26, 42)) %>%
  bind_rows(T_2101 %>%
              filter(line == 3) %>%
              mutate(Variable = "Salaires et traitements nets")) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  ggplot + geom_line(aes(x = date, y = value, color = Variable)) +
  theme_minimal() + xlab("") + ylab("Milliards d'€") +
  scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = c(1,2,5,8,10,20, 50, 80, 100, 200, 500, 1000, 1200, 2000, 3000, 5000, 10000),
                     labels = dollar_format(accuracy = 1, pre = "", su ="Mds€")) +
  theme(legend.position = c(0.3, 0.9),
        legend.title = element_blank())

1995-

Linear

Code 
T_7401 %>%
  filter(line %in% c(18, 26, 42)) %>%
  bind_rows(T_2101 %>%
              filter(line == 3) %>%
              mutate(Variable = "Salaires et traitements nets")) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  filter(date >= as.Date("1995-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = value, color = Variable)) +
  theme_minimal() + xlab("") + ylab("Milliards d'€") +
  scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 2), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 10000, 100),
                     labels = dollar_format(accuracy = 1, pre = "", su ="Mds€")) +
  theme(legend.position = c(0.3, 0.9),
        legend.title = element_blank())

Log

Code 
T_7401 %>%
  filter(line %in% c(18, 26)) %>%
  bind_rows(T_2101 %>%
              filter(line == 3) %>%
              mutate(Variable = "Salaires et traitements nets")) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  filter(date >= as.Date("1995-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = value, color = Variable)) +
  theme_minimal() + xlab("") + ylab("Milliards d'€") +
  scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 2), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 1500, 100),
                     labels = dollar_format(accuracy = 1, pre = "", su ="Mds€")) +
  theme(legend.position = c(0.3, 0.9),
        legend.title = element_blank())

2017-

Linear

Code 
T_7401 %>%
  filter(line %in% c(18, 26, 42)) %>%
  bind_rows(T_2101 %>%
              filter(line == 3) %>%
              mutate(Variable = "Salaires et traitements nets")) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  filter(date >= as.Date("2017-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = value, color = Variable)) +
  theme_minimal() + xlab("") + ylab("Milliards d'€") +
  scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 1), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 10000, 100),
                     labels = dollar_format(accuracy = 1, pre = "", su ="Mds€")) +
  theme(legend.position = c(0.3, 0.9),
        legend.title = element_blank())

Log

Code 
T_7401 %>%
  filter(line %in% c(18, 26)) %>%
  bind_rows(T_2101 %>%
              filter(line == 3) %>%
              mutate(Variable = "Salaires et traitements nets")) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  filter(date >= as.Date("2017-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = value, color = Variable)) +
  theme_minimal() + xlab("") + ylab("Milliards d'€") +
  scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 1), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 1500, 100),
                     labels = dollar_format(accuracy = 1, pre = "", su ="Mds€")) +
  theme(legend.position = c(0.3, 0.9),
        legend.title = element_blank())

% du PIB

All

Code 
T_7401 %>%
  filter(variable %in% c("D1", "D11"),
         line %in% c(25, 26)) %>%
  bind_rows(T_2101 %>%
              filter(line == 3) %>%
              mutate(Variable = "Salaires et traitements nets")) %>%
  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 = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 2),
                     labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.2, 0.9),
        legend.title = element_blank())

1995-

Code 
T_7401 %>%
  filter(variable %in% c("D1", "D11"),
         line %in% c(25, 26)) %>%
  bind_rows(T_2101 %>%
              filter(line == 3) %>%
              mutate(Variable = "Salaires et traitements nets")) %>%
  left_join(gdp, by = "year") %>%
  year_to_date2 %>%
  filter(date >= as.Date("1995-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = value / gdp, color = Variable)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 2),
                     labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.2, 0.7),
        legend.title = element_blank())

% du RDB

All

Code 
T_7401 %>%
  filter(variable %in% c("D1", "D11"),
         line %in% c(25, 26)) %>%
  bind_rows(T_2101 %>%
              filter(line == 3) %>%
              mutate(Variable = "Salaires et traitements nets")) %>%
  left_join(rdb2, 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 = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 2),
                     labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.2, 0.9),
        legend.title = element_blank())

1995-

Code 
T_7401 %>%
  filter(variable %in% c("D1", "D11"),
         line %in% c(25, 26)) %>%
  bind_rows(T_2101 %>%
              filter(line == 3) %>%
              mutate(Variable = "Salaires et traitements nets")) %>%
  left_join(rdb2, by = "year") %>%
  year_to_date2 %>%
  filter(date >= as.Date("1995-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = value / rdb, color = Variable)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 2), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 2),
                     labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.2, 0.7),
        legend.title = element_blank())

Dépense de consommation individuelle, revenu disponible brut

Dépense de consommation, RDB

Code 
T_7401 %>%
  filter(variable %in% c("B6G", "P31")) %>%
  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 = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 2),
                     labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.7, 0.9),
        legend.title = element_blank())

Avec 0

Code 
T_7401 %>%
  filter(variable %in% c("B6G", "P31")) %>%
  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 = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 5),
                     labels = percent_format(accuracy = 1),
                     limits = c(0, 0.72)) +
  
  theme(legend.position = c(0.7, 0.3),
        legend.title = element_blank())