Pouvoir d’achat et ratios des comptes des ménages

Data - Insee

Author

François Geerolf

Info

source dataset .html .RData

insee

t_pouvachat_val

 2024-07-02 2024-07-01

Données

  • Comptes nationaux trimestriels au 3ème trimestre 2023. [html] / [xls]
  • Comptes nationaux trimestriels au 2ème trimestre 2023. [html] / [xls]
  • Comptes nationaux trimestriels au 4ème trimestre 2022. [html] / [xls]
  • Comptes nationaux trimestriels au 4ème trimestre 2021. [html]

Données sur le pouvoir d’achat

source dataset .html .RData

insee

CNA-2014-RDB

 2024-07-02 2024-07-01

insee

CNT-2014-CSI

 2024-07-02 2024-07-01

insee

conso-eff-fonction

 2024-07-02 2022-06-14

insee

reve-niv-vie-individu-activite

 2024-07-02 NA

insee

t_7401

 2024-07-02 2023-12-23

insee

t_men_val

 2024-07-02 2024-07-01

insee

t_pouvachat_val

 2024-07-02 2024-07-01

insee

t_recapAgent_val

 2024-06-24 2024-07-01

insee

t_salaire_val

 2024-06-20 2024-07-01

oecd

HH_DASH

 2024-07-01 2023-09-09

Données sur l’épargne

source dataset .html .RData

bdf

CFT

 2024-07-01 2024-07-01

insee

bdf2017

 2024-07-02 2023-11-21

insee

ip1815

 2024-07-02 2023-10-05

insee

t_men_val

 2024-07-02 2024-07-01

insee

t_pouvachat_val

 2024-07-02 2024-07-01

insee

t_recapAgent_val

 2024-06-24 2024-07-01

LAST_COMPILE

LAST_COMPILE
2024-07-02

date

Code 
t_pouvachat_val %>%
  group_by(date) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(date)) %>%
  print_table_conditional

2017T2-

Table

Code 
t_pouvachat_val %>%
  left_join(variable, by = "variable") %>%
  filter(date %in% c(as.Date("2017-04-01"), max(date))) %>%
  spread(date, value) %>%
  print_table_conditional(.)
variable Variable 2017-04-01 2024-01-01
(B6/P3prix)/UC Pouvoir d'achat du RDB par unité de consommation 0.4680080 0.4547404
(B7/P4prix)/UC Pouvoir d'achat du RDB ajusté par unité de consommation 0.4186841 0.4542252
B6 RDB 0.6060624 1.1828265
B6 / P3prix Pouvoir d'achat du RDB 0.6132021 0.5866871
B6/UC RDB par unité de consommation (UC) 0.4608787 1.0500978
B7 RDB ajusté 0.6542450 0.9877441
B7/P4prix Pouvoir d'achat du RDB ajusté 0.5638069 0.5861712
B7/UC RDB ajusté par unité de consommation 0.5089917 0.8552713
B8/(B6+D8) NA 0.1412385 0.1762031
B9NF Épargne financière -1.3984956 12.2938493
B9NF/(B6+D8) NA 0.0414096 0.0809431
P3prix Prix de la dépense de consommation finale -0.0070961 0.5926623

Prix de la dépense de consommation finale - P3prix

Tous

Code 
t_pouvachat_val %>%
  filter(variable %in% c("P3prix", "B6", "B7")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  ggplot + geom_line(aes(x = date, y = value/100, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1900-01-01"), to = as.Date("2100-10-01"), by = "5 years"),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 2),
                labels = percent_format(accuracy = 1)) +
  theme(legend.position = c(0.4, 0.9),
        legend.title = element_blank(),
        legend.direction = "vertical")

Glissement sur 1 an

Tous

Code 
t_pouvachat_val %>%
  filter(variable %in% c("P3prix", "B6", "B7")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  group_by(variable) %>%
  arrange(date) %>%
  mutate(value = value/100,
         ga = (1+value)*(1+lag(value,1))*(1+lag(value,2))*(1+lag(value,3))-1) %>%
  ggplot + geom_line(aes(x = date, y = ga, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1900-01-01"), to = as.Date("2100-10-01"), by = "5 years"),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 2),
                labels = percent_format(accuracy = 1)) +
  theme(legend.position = c(0.4, 0.9),
        legend.title = element_blank(),
        legend.direction = "vertical")

1990-

Code 
t_pouvachat_val %>%
  filter(variable %in% c("P3prix", "B6", "B7")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  group_by(variable) %>%
  arrange(date) %>%
  mutate(value = value/100,
         ga = (1+value)*(1+lag(value,1))*(1+lag(value,2))*(1+lag(value,3))-1) %>%
  filter(date >= as.Date("1990-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = ga, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1900-01-01"), to = as.Date("2100-10-01"), 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.4, 0.9),
        legend.title = element_blank(),
        legend.direction = "vertical")

1999-

Code 
t_pouvachat_val %>%
  filter(variable %in% c("P3prix", "B6", "B7")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  group_by(variable) %>%
  arrange(date) %>%
  mutate(value = value/100,
         ga = (1+value)*(1+lag(value,1))*(1+lag(value,2))*(1+lag(value,3))-1) %>%
  filter(date >= as.Date("1999-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = ga, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1900-01-01"), to = as.Date("2100-10-01"), by = "2 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.4, 0.9),
        legend.title = element_blank(),
        legend.direction = "vertical")

2010-

Code 
t_pouvachat_val %>%
  filter(variable %in% c("P3prix", "B6", "B7")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  group_by(variable) %>%
  arrange(date) %>%
  mutate(value = value/100,
         ga = (1+value)*(1+lag(value,1))*(1+lag(value,2))*(1+lag(value,3))-1) %>%
  filter(date >= as.Date("2010-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = ga, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1900-01-01"), to = as.Date("2100-10-01"), by = "2 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.4, 0.9),
        legend.title = element_blank(),
        legend.direction = "vertical")

2015-

Code 
t_pouvachat_val %>%
  filter(variable %in% c("P3prix", "B6", "B7")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  group_by(variable) %>%
  arrange(date) %>%
  mutate(value = value/100,
         ga = (1+value)*(1+lag(value,1))*(1+lag(value,2))*(1+lag(value,3))-1) %>%
  filter(date >= as.Date("2015-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = ga, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1900-01-01"), to = as.Date("2100-10-01"), by = "1 year"),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 1),
                labels = percent_format(accuracy = 1)) +
  theme(legend.position = c(0.4, 0.9),
        legend.title = element_blank(),
        legend.direction = "vertical")

Glissement sur 2 ans

B6, B7

Code 
t_pouvachat_val %>%
  filter(variable %in% c("P3prix", "B6", "B7")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  group_by(variable) %>%
  arrange(date) %>%
  mutate(value = value/100,
         ga = ((1+value)*(1+lag(value,1))*(1+lag(value,2))*(1+lag(value,3))*(1+lag(value,4))*(1+lag(value,5))*(1+lag(value,6))*(1+lag(value,7)))^(1/2)-1) %>%
  ggplot + geom_line(aes(x = date, y = ga, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1900-01-01"), to = as.Date("2100-10-01"), by = "5 years"),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 2),
                labels = percent_format(accuracy = 1)) +
  theme(legend.position = c(0.4, 0.9),
        legend.title = element_blank(),
        legend.direction = "vertical")

B6, B7, B6/UC

Code 
t_pouvachat_val %>%
  filter(variable %in% c("P3prix", "B6", "B7", "B6/UC")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  group_by(variable) %>%
  arrange(date) %>%
  mutate(value = value/100,
         ga = ((1+value)*(1+lag(value,1))*(1+lag(value,2))*(1+lag(value,3))*(1+lag(value,4))*(1+lag(value,5))*(1+lag(value,6))*(1+lag(value,7)))^(1/2)-1) %>%
  ggplot + geom_line(aes(x = date, y = ga, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1900-01-01"), to = as.Date("2100-10-01"), by = "5 years"),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 2),
                labels = percent_format(accuracy = 1)) +
  theme(legend.position = c(0.4, 0.9),
        legend.title = element_blank(),
        legend.direction = "vertical")

Pouvoir d’achat

Tous

Trimestriel

Code 
t_pouvachat_val %>%
  filter(variable %in% c("(B6/P3prix)/UC", "(B7/P4prix)/UC")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  ggplot + geom_line(aes(x = date, y = value/100, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1900-01-01"), to = as.Date("2100-10-01"), by = "5 years"),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 2),
                labels = percent_format(accuracy = 1)) +
  theme(legend.position = c(0.4, 0.9),
        legend.title = element_blank(),
        legend.direction = "vertical")

Glissement sur 1 an

Code 
t_pouvachat_val %>%
  filter(variable %in% c("(B6/P3prix)/UC", "(B7/P4prix)/UC")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  group_by(variable) %>%
  arrange(date) %>%
  mutate(value = value/100,
         ga = (1+value)*(1+lag(value,1))*(1+lag(value,2))*(1+lag(value,3))-1) %>%
  ggplot + geom_line(aes(x = date, y = ga, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1900-01-01"), to = as.Date("2100-10-01"), by = "5 years"),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 2),
                labels = percent_format(accuracy = 1)) +
  theme(legend.position = c(0.4, 0.9),
        legend.title = element_blank(),
        legend.direction = "vertical")

Glissement sur 2 ans

Code 
t_pouvachat_val %>%
  filter(variable %in% c("(B6/P3prix)/UC", "(B7/P4prix)/UC")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  group_by(variable) %>%
  arrange(date) %>%
  mutate(value = value/100,
         ga = ((1+value)*(1+lag(value,1))*(1+lag(value,2))*(1+lag(value,3))*(1+lag(value,4))*(1+lag(value,5))*(1+lag(value,6))*(1+lag(value,7)))^(1/2)-1) %>%
  ggplot + geom_line(aes(x = date, y = ga, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1900-01-01"), to = as.Date("2100-10-01"), 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.4, 0.9),
        legend.title = element_blank(),
        legend.direction = "vertical")

Glissement sur 3 ans

Code 
t_pouvachat_val %>%
  filter(variable %in% c("(B6/P3prix)/UC", "(B7/P4prix)/UC")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  group_by(variable) %>%
  arrange(date) %>%
  mutate(value = value/100,
         ga = ((1+value)*(1+lag(value,1))*(1+lag(value,2))*(1+lag(value,3))*(1+lag(value,4))*(1+lag(value,5))*(1+lag(value,6))*(1+lag(value,7))*(1+lag(value,8))*(1+lag(value,9))*(1+lag(value,10))*(1+lag(value,11)))^(1/3)-1) %>%
  ggplot + geom_line(aes(x = date, y = ga, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1900-01-01"), to = as.Date("2100-10-01"), 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.4, 0.9),
        legend.title = element_blank(),
        legend.direction = "vertical")

Glissement sur 4 ans

Code 
t_pouvachat_val %>%
  filter(variable %in% c("(B6/P3prix)/UC", "(B7/P4prix)/UC")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  group_by(variable) %>%
  arrange(date) %>%
  mutate(value = value/100,
         ga = ((1+value)*(1+lag(value,1))*(1+lag(value,2))*(1+lag(value,3))*(1+lag(value,4))*(1+lag(value,5))*(1+lag(value,6))*(1+lag(value,7))*(1+lag(value,8))*(1+lag(value,9))*(1+lag(value,10))*(1+lag(value,11))*(1+lag(value,12))*(1+lag(value,13))*(1+lag(value,14))*(1+lag(value,15)))^(1/4)-1) %>%
  ggplot + geom_line(aes(x = date, y = ga, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1900-01-01"), to = as.Date("2100-10-01"), 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.4, 0.9),
        legend.title = element_blank(),
        legend.direction = "vertical")

Glissement sur 5 ans

Code 
t_pouvachat_val %>%
  filter(variable %in% c("(B6/P3prix)/UC", "(B7/P4prix)/UC")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  group_by(variable) %>%
  arrange(date) %>%
  mutate(value = value/100,
         ga = ((1+value)*(1+lag(value,1))*(1+lag(value,2))*(1+lag(value,3))*(1+lag(value,4))*(1+lag(value,5))*(1+lag(value,6))*(1+lag(value,7))*(1+lag(value,8))*(1+lag(value,9))*(1+lag(value,10))*(1+lag(value,11))*(1+lag(value,12))*(1+lag(value,13))*(1+lag(value,14))*(1+lag(value,15))*(1+lag(value,16))*(1+lag(value,17))*(1+lag(value,18))*(1+lag(value,19)))^(1/5)-1) %>%
  ggplot + geom_line(aes(x = date, y = ga, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1900-01-01"), to = as.Date("2100-10-01"), 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.4, 0.9),
        legend.title = element_blank(),
        legend.direction = "vertical")

2017T2-

Code 
t_pouvachat_val %>%
  filter(variable %in% c("(B6/P3prix)/UC", "(B7/P4prix)/UC", "B6 / P3prix", "B7/P4prix"),
         date >= as.Date("2017-04-01")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  ggplot + geom_line(aes(x = date, y = value/100, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1990-04-01"), to = as.Date("2100-10-01"), by = "6 months"),
               labels = date_format("%b %Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 1),
                labels = percent_format(accuracy = 1)) +
  theme(legend.position = c(0.4, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

3 years

Code 
t_pouvachat_val %>%
  filter(variable %in% c("(B6/P3prix)/UC", "(B7/P4prix)/UC", "B6 / P3prix", "B7/P4prix"),
         date >= max(date) - years(3)) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  ggplot + geom_line(aes(x = date, y = value/100, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1990-01-01"), to = as.Date("2100-10-01"), by = "3 months"),
               labels = date_format("%b %Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 1),
                labels = percent_format(accuracy = 1)) +
  theme(legend.position = c(0.4, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

2 years

Trimestriel

Code 
t_pouvachat_val %>%
  filter(variable %in% c("(B6/P3prix)/UC", "(B7/P4prix)/UC", "B6 / P3prix", "B7/P4prix"),
         date >= max(date) - years(2)) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  ggplot + geom_line(aes(x = date, y = value/100, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1990-01-01"), to = as.Date("2100-10-01"), by = "3 months"),
               labels = date_format("%b %Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 1),
                labels = percent_format(accuracy = 1)) +
  theme(legend.position = c(0.4, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

Glissement sur 1 an

Code 
t_pouvachat_val %>%
  filter(variable %in% c("(B6/P3prix)/UC", "(B7/P4prix)/UC", "B6 / P3prix", "B7/P4prix")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  group_by(variable) %>%
  arrange(date) %>%
  mutate(value = value/100,
         ga = (1+value)*(1+lag(value,1))*(1+lag(value,2))*(1+lag(value,3))-1) %>%
  filter(date >= max(date) - years(2)) %>%
  ggplot + geom_line(aes(x = date, y = ga, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1990-01-01"), to = as.Date("2100-10-01"), by = "3 months"),
               labels = date_format("%b %Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 100, 1),
                labels = percent_format(accuracy = 1)) +
  theme(legend.position = c(0.7, 0.85),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

Taux d’épargne vs. d’épargne financière

Tous

Code 
t_pouvachat_val %>%
  filter(variable %in% c("B9NF/B6", "B8/B6")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  ggplot + geom_line(aes(x = date, y = value/100, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1900-01-01"), to = as.Date("2100-10-01"), by = "5 years"),
               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(),
        legend.direction = "vertical")

1995-

Code 
t_pouvachat_val %>%
  filter(variable %in% c("B9NF/B6", "B8/B6"),
         date >= as.Date("1995-01-01")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  ggplot + geom_line(aes(x = date, y = value/100, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1995-01-01"), to = as.Date("2100-10-01"), by = "4 years"),
               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(),
        legend.direction = "vertical")

2005-

Code 
t_pouvachat_val %>%
  filter(variable %in% c("B9NF/B6", "B8/B6"),
         date >= as.Date("2005-01-01")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  ggplot + geom_line(aes(x = date, y = value/100, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1995-01-01"), to = as.Date("2100-10-01"), by = "2 years"),
               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(),
        legend.direction = "vertical")

2012-

Code 
t_pouvachat_val %>%
  filter(variable %in% c("B9NF/B6", "B8/B6"),
         date >= as.Date("2012-01-01")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  ggplot + geom_line(aes(x = date, y = value/100, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1995-01-01"), to = as.Date("2100-10-01"), by = "1 year"),
               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(),
        legend.direction = "vertical")

2017T2-

Code 
t_pouvachat_val %>%
  filter(variable %in% c("B9NF/B6", "B8/B6"),
         date >= as.Date("2017-04-01")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  ggplot + geom_line(aes(x = date, y = value/100, color = Variable)) + 
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("2017-04-01"), to = as.Date("2100-10-01"), by = "6 months"),
               labels = date_format("%b %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(),
        legend.direction = "vertical",
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

Taux d’épargne

2012-

Code 
t_pouvachat_val %>%
  filter(variable %in% c("B8/B6"),
         date >= as.Date("2014-01-01")) %>%
  left_join(variable, by = "variable") %>%
  na.omit %>%
  ggplot + geom_line(aes(x = date, y = value/100, color = Variable)) + 
  xlab("") + ylab("Taux d'épargne (%)") + theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("1995-01-01"), to = as.Date("2100-10-01"), by = "1 year"),
               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(),
        legend.direction = "vertical")