source | dataset | .html | .RData |
---|---|---|---|
insee | t_pouvachat_val | 2024-11-16 | 2024-09-04 |
Pouvoir d’achat et ratios des comptes des ménages
Data - Insee
Info
Données
Données sur le pouvoir d’achat
source | dataset | .html | .RData |
---|---|---|---|
insee | CNA-2014-RDB | 2024-11-15 | 2024-11-15 |
insee | CNT-2014-CSI | 2024-11-15 | 2024-11-15 |
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-09 | NA |
insee | reve-niv-vie-pouv-achat-trim | 2024-11-09 | 2024-09-05 |
insee | T_7401 | 2024-10-18 | 2024-10-18 |
insee | t_men_val | 2024-11-16 | 2024-09-02 |
insee | t_pouvachat_val | 2024-11-16 | 2024-09-04 |
insee | t_recapAgent_val | 2024-11-09 | 2024-09-02 |
insee | t_salaire_val | 2024-11-09 | 2024-09-02 |
oecd | HH_DASH | 2024-09-15 | 2023-09-09 |
Bibliographie en lien
Français
“Mesurer”le” pouvoir d’achat”, F. Geerolf, Document de travail, Juillet 2024. [pdf]
“Inflation en France: IPC ou IPCH ?”, F. Geerolf, Document de travail, Juillet 2024. [pdf]
“La taxe inflationniste, le pouvoir d’achat, le taux d’épargne et le déficit public”, F. Geerolf, Document de travail, Juillet 2024. [pdf]
Données sur l’épargne
LAST_COMPILE
LAST_COMPILE |
---|
2024-11-16 |
date
Code
%>%
t_pouvachat_val group_by(date) %>%
summarise(Nobs = n()) %>%
arrange(desc(date)) %>%
print_table_conditional
variable
Code
%>%
t_pouvachat_val left_join(variable, by = "variable") %>%
group_by(variable, Variable) %>%
summarise(Nobs = n()) %>%
print_table_conditional(.)
variable | Variable | Nobs |
---|---|---|
(B6/P3prix)/UC | Pouvoir d'achat du RDB par unité de consommation | 301 |
(B7/P4prix)/UC | Pouvoir d'achat du RDB ajusté par unité de consommation | 301 |
B6 | RDB | 301 |
B6 / P3prix | Pouvoir d'achat du RDB | 301 |
B6/UC | RDB par unité de consommation (UC) | 301 |
B7 | RDB ajusté | 301 |
B7/P4prix | Pouvoir d'achat du RDB ajusté | 301 |
B7/UC | RDB ajusté par unité de consommation | 301 |
B8/(B6+D8) | Taux d'épargne | 301 |
B9NF | Épargne financière | 301 |
B9NF/(B6+D8) | Taux d'épargne financière | 301 |
P3prix | Prix de la dépense de consommation finale | 301 |
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-04-01 |
---|---|---|---|
(B6/P3prix)/UC | Pouvoir d'achat du RDB par unité de consommation | 0.4729092 | 0.2140397 |
(B7/P4prix)/UC | Pouvoir d'achat du RDB ajusté par unité de consommation | 0.4206278 | 0.1887778 |
B6 | RDB | 0.6118366 | 0.5715933 |
B6 / P3prix | Pouvoir d'achat du RDB | 0.6181103 | 0.3441149 |
B6/UC | RDB par unité de consommation (UC) | 0.4666445 | 0.4412231 |
B7 | RDB ajusté | 0.6564873 | 0.5897614 |
B7/P4prix | Pouvoir d'achat du RDB ajusté | 0.5657534 | 0.3188203 |
B7/UC | RDB ajusté par unité de consommation | 0.5112308 | 0.4593677 |
B8/(B6+D8) | Taux d'épargne | 14.1647659 | 17.8970874 |
B9NF | Épargne financière | -1.1987561 | 5.4669739 |
B9NF/(B6+D8) | Taux d'épargne financière | 4.1642999 | 8.4918992 |
P3prix | Prix de la dépense de consommation finale | -0.0062352 | 0.2266982 |
Pouvoir d’achat du RDB - (B6/P3prix)/UC
Tous
Code
%>%
t_pouvachat_val filter(variable %in% c("(B6/P3prix)/UC", "B6 / P3prix")) %>%
left_join(variable, by = "variable") %>%
group_by(variable, Variable) %>%
arrange(date) %>%
mutate(index = c(100, 100*cumprod(1 + value[-1]/100))) %>%
ggplot() + geom_line(aes(x = date, y = index, color = Variable)) +
xlab("") + ylab("") + theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(100, 3000, 100))
1980-
Code
%>%
t_pouvachat_val filter(variable %in% c("(B6/P3prix)/UC", "B6 / P3prix")) %>%
left_join(variable, by = "variable") %>%
filter(date >= as.Date("1980-01-01")) %>%
group_by(variable, Variable) %>%
arrange(date) %>%
mutate(index = c(100, 100*cumprod(1 + value[-1]/100))) %>%
ggplot() + geom_line(aes(x = date, y = index, color = Variable)) +
xlab("") + ylab("") + theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(1980, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(100, 300, 5))
1990-
Code
%>%
t_pouvachat_val filter(variable %in% c("(B6/P3prix)/UC", "B6 / P3prix")) %>%
left_join(variable, by = "variable") %>%
filter(date >= as.Date("1990-01-01")) %>%
group_by(variable, Variable) %>%
arrange(date) %>%
mutate(index = c(100, 100*cumprod(1 + value[-1]/100))) %>%
ggplot() + geom_line(aes(x = date, y = index, color = Variable)) +
xlab("") + ylab("") + theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(1990, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(100, 300, 5))
1999-
Code
%>%
t_pouvachat_val filter(variable %in% c("(B6/P3prix)/UC", "B6 / P3prix")) %>%
left_join(variable, by = "variable") %>%
filter(date >= as.Date("1999-01-01")) %>%
group_by(variable, Variable) %>%
arrange(date) %>%
mutate(index = c(100, 100*cumprod(1 + value[-1]/100))) %>%
ggplot() + geom_line(aes(x = date, y = index, color = Variable)) +
xlab("") + ylab("") + theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(1999, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(100, 150, 5))
2017T2-
Code
%>%
t_pouvachat_val filter(variable %in% c("(B6/P3prix)/UC", "B6 / P3prix")) %>%
left_join(variable, by = "variable") %>%
filter(date >= as.Date("2017-04-01")) %>%
group_by(variable, Variable) %>%
arrange(date) %>%
mutate(index = c(100, 100*cumprod(1 + value[-1]/100))) %>%
ggplot() + geom_line(aes(x = date, y = index, color = Variable)) +
xlab("") + ylab("") + theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(1999, 2100, 1), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(100, 150, 1))
2021T2-
Code
%>%
t_pouvachat_val filter(variable %in% c("(B6/P3prix)/UC", "B6 / P3prix")) %>%
left_join(variable, by = "variable") %>%
filter(date >= as.Date("2021-04-01")) %>%
group_by(variable, Variable) %>%
arrange(date) %>%
mutate(index = c(100, 100*cumprod(1 + value[-1]/100))) %>%
ggplot() + geom_line(aes(x = date, y = index, color = Variable)) +
xlab("") + ylab("") + theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(1999, 2100, 1), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(1, 150, 1))
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") %>%
group_by(variable, Variable) %>%
arrange(date) %>%
mutate(index = c(100, 100*cumprod(1 + value[-1]/100))) %>%
ggplot() + geom_line(aes(x = date, y = index, color = Variable)) +
xlab("") + ylab("") + theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(100, 100000, 100))
1999-
Code
%>%
t_pouvachat_val filter(variable %in% c("P3prix", "B6", "B7")) %>%
left_join(variable, by = "variable") %>%
group_by(variable, Variable) %>%
arrange(date) %>%
filter(date >= as.Date("1999-01-01")) %>%
mutate(index = c(100, 100*cumprod(1 + value[-1]/100))) %>%
ggplot() + geom_line(aes(x = date, y = index, color = Variable)) +
xlab("") + ylab("") + theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(1999, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(100, 100000, 10)) +
geom_label_repel(data = . %>% filter(date == max(date)),
aes(x = date, y = index, color = Variable, label = round(index, 1)))
Evolution 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 + geom_line(aes(x = date, y = value/100, color = Variable)) +
ggplot 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) %>%
+ geom_line(aes(x = date, y = ga, color = Variable)) +
ggplot 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")) %>%
+ geom_line(aes(x = date, y = ga, color = Variable)) +
ggplot 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")) %>%
+ geom_line(aes(x = date, y = ga, color = Variable)) +
ggplot 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")) %>%
+ geom_line(aes(x = date, y = ga, color = Variable)) +
ggplot 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")) %>%
+ geom_line(aes(x = date, y = ga, color = Variable)) +
ggplot 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) %>%
+ geom_line(aes(x = date, y = ga, color = Variable)) +
ggplot 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) %>%
+ geom_line(aes(x = date, y = ga, color = Variable)) +
ggplot 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 + geom_line(aes(x = date, y = value/100, color = Variable)) +
ggplot 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) %>%
+ geom_line(aes(x = date, y = ga, color = Variable)) +
ggplot 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) %>%
+ geom_line(aes(x = date, y = ga, color = Variable)) +
ggplot 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) %>%
+ geom_line(aes(x = date, y = ga, color = Variable)) +
ggplot 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) %>%
+ geom_line(aes(x = date, y = ga, color = Variable)) +
ggplot 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) %>%
+ geom_line(aes(x = date, y = ga, color = Variable)) +
ggplot 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"),
>= as.Date("2017-04-01")) %>%
date mutate(date = zoo::as.yearqtr(date)) %>%
left_join(variable, by = "variable") %>%
%>%
na.omit + geom_line(aes(x = date, y = value/100, color = Variable)) +
ggplot xlab("") + ylab("") + theme_minimal() +
::scale_x_yearqtr(labels = date_format("%YT%q"),
zoobreaks = expand.grid(2017:2100, c(2, 4)) %>%
mutate(breaks = zoo::as.yearqtr(paste0(Var1, "Q", Var2))) %>%
pull(breaks)) +
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"),
>= max(date) - years(3)) %>%
date mutate(date = zoo::as.yearqtr(date)) %>%
left_join(variable, by = "variable") %>%
%>%
na.omit + geom_line(aes(x = date, y = value/100, color = Variable)) +
ggplot xlab("") + ylab("") + theme_minimal() +
::scale_x_yearqtr(labels = date_format("%YT%q"),
zoobreaks = expand.grid(2017:2100, 1:4) %>%
mutate(breaks = zoo::as.yearqtr(paste0(Var1, "Q", Var2))) %>%
pull(breaks)) +
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"),
>= max(date) - years(2)) %>%
date mutate(date = zoo::as.yearqtr(date)) %>%
left_join(variable, by = "variable") %>%
%>%
na.omit + geom_line(aes(x = date, y = value/100, color = Variable)) +
ggplot xlab("") + ylab("") + theme_minimal() +
::scale_x_yearqtr(labels = date_format("%YT%q"),
zoobreaks = expand.grid(2017:2100, 1:4) %>%
mutate(breaks = zoo::as.yearqtr(paste0(Var1, "Q", Var2))) %>%
pull(breaks)) +
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)) %>%
+ geom_line(aes(x = date, y = ga, color = Variable)) +
ggplot 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+D8)", "B8/(B6+D8)")) %>%
left_join(variable, by = "variable") %>%
%>%
na.omit + geom_line(aes(x = date, y = value/100, color = Variable)) +
ggplot 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+D8)", "B8/(B6+D8)"),
>= as.Date("1995-01-01")) %>%
date left_join(variable, by = "variable") %>%
%>%
na.omit mutate(date = zoo::as.yearqtr(date, format = "%YT%q")) %>%
+ geom_line(aes(x = date, y = value/100, color = Variable)) +
ggplot xlab("") + ylab("") + theme_minimal() +
scale_x_yearqtr() +
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+D8)", "B8/(B6+D8)"),
>= as.Date("2005-01-01")) %>%
date left_join(variable, by = "variable") %>%
%>%
na.omit mutate(date = zoo::as.yearqtr(date, format = "%YT%q")) %>%
+ geom_line(aes(x = date, y = value/100, color = Variable)) +
ggplot xlab("") + ylab("") + theme_minimal() +
scale_x_yearqtr() +
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+D8)", "B8/(B6+D8)"),
>= as.Date("2012-01-01")) %>%
date left_join(variable, by = "variable") %>%
%>%
na.omit mutate(date = zoo::as.yearqtr(date, format = "%YT%q")) %>%
+ geom_line(aes(x = date, y = value/100, color = Variable)) +
ggplot xlab("") + ylab("") + theme_minimal() +
scale_x_yearqtr() +
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+D8)", "B8/(B6+D8)"),
>= as.Date("2017-04-01")) %>%
date left_join(variable, by = "variable") %>%
%>%
na.omit mutate(date = zoo::as.yearqtr(date, format = "%YT%q")) %>%
+ geom_line(aes(x = date, y = value/100, color = Variable)) +
ggplot xlab("") + ylab("") + theme_minimal() +
scale_x_yearqtr(labels = date_format("%Y-T%q"),
breaks = expand.grid(2017:2100, c(2, 4)) %>%
mutate(breaks = zoo::as.yearqtr(paste0(Var1, "Q", Var2))) %>%
pull(breaks)) +
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+D8)"),
>= as.Date("2014-01-01")) %>%
date left_join(variable, by = "variable") %>%
%>%
na.omit + geom_line(aes(x = date, y = value/100, color = Variable)) +
ggplot 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")