| source | dataset | .html | .RData |
|---|---|---|---|
| 2024-06-23 | 2024-06-23 | ||
| 2024-06-24 | 2024-06-23 | ||
| 2024-06-24 | 2024-06-23 | ||
| 2024-06-24 | 2024-06-23 | ||
| 2024-06-24 | 2024-06-23 | ||
| 2024-06-07 | 2024-06-23 | ||
| 2024-06-24 | 2024-06-23 | ||
| 2024-06-20 | 2024-06-23 | ||
| 2024-06-20 | 2024-06-23 | ||
| 2024-06-20 | 2024-06-23 | ||
| 2024-06-20 | 2024-06-23 | ||
| 2024-06-20 | 2024-06-23 | ||
| 2024-06-20 | 2024-06-23 | ||
| 2024-06-07 | 2023-07-04 | ||
| 2024-06-20 | 2024-06-24 | ||
| 2024-06-20 | 2022-01-02 | ||
| 2024-06-20 | 2020-10-30 | ||
| 2024-06-20 | 2020-10-30 |
Revenu et pouvoir d’achat des ménages
Data - Insee
Info
LAST_UPDATE
Code
`CNA-2014-RDB` %>%
group_by(LAST_UPDATE) %>%
summarise(Nobs = n()) %>%
print_table_conditional()| LAST_UPDATE | Nobs |
|---|---|
| 2022-09-30 | 630 |
| 2023-05-31 | 128 |
INDICATEUR
Code
`CNA-2014-RDB` %>%
left_join(INDICATEUR, by = "INDICATEUR") %>%
group_by(INDICATEUR, Indicateur) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()| INDICATEUR | Indicateur | Nobs |
|---|---|---|
| CNA_EVOPAARPP | Évolution du pouvoir d'achat arbitrable par personne | 64 |
| CNA_EVOPAARUC | Évolution du pouvoir d'achat arbitrable par unité de consommation | 64 |
| CNA_B6 | Revenu disponible brut en valeur | 63 |
| CNA_B6ARBITR | Revenu disponible brut arbitrable en valeur | 63 |
| CNA_B6ARBITREVOL | Évolution du revenu disponible brut arbitrable en valeur | 63 |
| CNA_B6EVOL | Évolution du revenu disponible brut en valeur | 63 |
| CNA_EVOPA | Évolution du pouvoir d'achat | 63 |
| CNA_EVOPAAR | Évolution du pouvoir d'achat arbitrable | 63 |
| CNA_EVOPAARMEN | Évolution du pouvoir d'achat arbitrable par ménage | 63 |
| CNA_EVOPAMEN | Évolution du pouvoir d'achat par ménage | 63 |
| CNA_EVOPAPP | Évolution du pouvoir d'achat par personne | 63 |
| CNA_EVOPAUC | Évolution du pouvoir d'achat par unité de consommation | 63 |
TITLE_FR
Code
`CNA-2014-RDB` %>%
group_by(IDBANK, TITLE_FR) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()| IDBANK | TITLE_FR | Nobs |
|---|---|---|
| 010562209 | Comptes nationaux annuels base 2014 - Revenu disponible brut arbitrable - Ménages y compris E.I. - Ressources ou passifs - Evolution du pouvoir d'achat arbitrable par personne - Série arrêtée | 64 |
| 010562210 | Comptes nationaux annuels base 2014 - Revenu disponible brut arbitrable - Ménages y compris E.I. - Ressources ou passifs - Evolution du pouvoir d'achat arbitrable par unité de consommation - Série arrêtée | 64 |
| 010562201 | Comptes nationaux annuels base 2014 - Revenu disponible brut - Ménages y compris EI - Ressources ou passifs - Prix courant - Série arrêtée | 63 |
| 010562202 | Comptes nationaux annuels base 2014 - Revenu disponible brut - Ménages y compris E.I. - Ressources ou passifs - Evolution du pouvoir d'achat - Série arrêtée | 63 |
| 010562203 | Comptes nationaux annuels base 2014 - Revenu disponible brut - Ménages y compris E.I. - Ressources ou passifs - Evolution du pouvoir d'achat par ménage - Série arrêtée | 63 |
| 010562204 | Comptes nationaux annuels base 2014 - Revenu disponible brut - Ménages y compris E.I. - Ressources ou passifs - Evolution du pouvoir d'achat par personne - Série arrêtée | 63 |
| 010562205 | Comptes nationaux annuels base 2014 - Revenu disponible brut - Ménages y compris E.I. - Ressources ou passifs - Evolution du pouvoir d'achat par unité de consommation - Série arrêtée | 63 |
| 010562206 | Comptes nationaux annuels base 2014 - Revenu disponible brut - Ménages y compris E.I. - Ressources ou passifs - Evolution en valeur - Série arrêtée | 63 |
| 010562207 | Comptes nationaux annuels base 2014 - Revenu disponible brut arbitrable - Ménages y compris E.I. - Ressources ou passifs - Evolution du pouvoir d'achat arbitrable - Série arrêtée | 63 |
| 010562208 | Comptes nationaux annuels base 2014 - Revenu disponible brut arbitrable - Ménages y compris E.I. - Ressources ou passifs - Evolution du pouvoir d'achat arbitrable par ménage - Série arrêtée | 63 |
| 010562211 | Comptes nationaux annuels base 2014 - Revenu disponible brut arbitrable - Ménages y compris E.I. - Ressources ou passifs - Evolution en valeur - Série arrêtée | 63 |
| 010562212 | Comptes nationaux annuels base 2014 - Revenu disponible brut arbitrable - Ménages y compris E.I. - Ressources ou passifs - Prix courant - Série arrêtée | 63 |
NATURE
Code
`CNA-2014-RDB` %>%
left_join(NATURE, by = "NATURE") %>%
group_by(NATURE, Nature) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()| NATURE | Nature | Nobs |
|---|---|---|
| TAUX | Taux | 632 |
| VALEUR_ABSOLUE | Valeur absolue | 126 |
UNIT_MEASURE
Code
`CNA-2014-RDB` %>%
group_by(UNIT_MEASURE) %>%
summarise(Nobs = n()) %>%
print_table_conditional()| UNIT_MEASURE | Nobs |
|---|---|
| EUROS_COURANTS | 126 |
| POURCENT | 632 |
RDB arbitrable, RDB
Linear
Code
`CNA-2014-RDB` %>%
filter(INDICATEUR %in% c("CNA_B6", "CNA_B6ARBITR")) %>%
left_join(INDICATEUR, by = "INDICATEUR") %>%
year_to_date %>%
select(INDICATEUR, Indicateur, date, OBS_VALUE) %>%
ggplot() + geom_line(aes(x = date, y = OBS_VALUE, color = Indicateur)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2020, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.9),
legend.title = element_blank()) +
scale_y_continuous(breaks = seq(0, 7000, 100),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
Log
Code
`CNA-2014-RDB` %>%
filter(INDICATEUR %in% c("CNA_B6", "CNA_B6ARBITR")) %>%
left_join(INDICATEUR, by = "INDICATEUR") %>%
year_to_date %>%
select(INDICATEUR, Indicateur, date, OBS_VALUE) %>%
ggplot() + geom_line(aes(x = date, y = OBS_VALUE, color = Indicateur)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2020, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.9),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(0, 7000, 100),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
Evolution du pouvoir d’achat
Nominal VS Réel
Evolution
Code
`CNA-2014-RDB` %>%
filter(INDICATEUR %in% c("CNA_B6EVOL", "CNA_B6ARBITREVOL",
"CNA_EVOPA", "CNA_EVOPAAR")) %>%
left_join(INDICATEUR, by = "INDICATEUR") %>%
year_to_date %>%
mutate(OBS_VALUE = OBS_VALUE / 100) %>%
ggplot() + geom_line(aes(x = date, y = OBS_VALUE, color = Indicateur)) +
xlab("") + ylab("") + theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2020, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.7, 0.85),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(-2, 90, 2),
labels = scales::percent_format(accuracy = 1)) +
geom_hline(yintercept = 0, linetype = "dashed")
Pouvoir d’achat - Par ménage, par personne, par unité de consommation
Evolution
Code
`CNA-2014-RDB` %>%
filter(INDICATEUR %in% c("CNA_EVOPAMEN", "CNA_EVOPAPP",
"CNA_EVOPAUC")) %>%
left_join(INDICATEUR, by = "INDICATEUR") %>%
year_to_date %>%
mutate(OBS_VALUE = OBS_VALUE / 100) %>%
ggplot() + geom_line(aes(x = date, y = OBS_VALUE, color = Indicateur)) +
xlab("") + ylab("Evolution du pouvoir d'achat (%)") + theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2020, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.7, 0.85),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(-5, 90, 1),
labels = scales::percent_format(accuracy = 1)) +
geom_hline(yintercept = 0, linetype = "dashed")
Pouvoir d’achat arbitrable - Par ménage, par personne, par unité de consommation
Evolution
Code
`CNA-2014-RDB` %>%
filter(INDICATEUR %in% c("CNA_EVOPAARMEN", "CNA_EVOPAARPP",
"CNA_EVOPAARUC")) %>%
left_join(INDICATEUR, by = "INDICATEUR") %>%
year_to_date %>%
mutate(OBS_VALUE = OBS_VALUE / 100) %>%
ggplot() + geom_line(aes(x = date, y = OBS_VALUE, color = Indicateur)) +
xlab("") + ylab("Evolution du pouvoir d'achat arbitrable (%)") + theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2020, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.7, 0.85),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(-5, 90, 1),
labels = scales::percent_format(accuracy = 1)) +
geom_hline(yintercept = 0, linetype = "dashed")
1990-
Code
`CNA-2014-RDB` %>%
filter(INDICATEUR %in% c("CNA_EVOPAARMEN", "CNA_EVOPAARPP",
"CNA_EVOPAARUC")) %>%
left_join(INDICATEUR, by = "INDICATEUR") %>%
year_to_date %>%
mutate(OBS_VALUE = OBS_VALUE / 100) %>%
filter(date >= as.Date("1990-01-01")) %>%
select(date, INDICATEUR, Indicateur, OBS_VALUE) %>%
group_by(INDICATEUR) %>%
arrange(date) %>%
mutate(index = 100*cumprod(1+OBS_VALUE)) %>%
ggplot() + geom_line(aes(x = date, y = index, color = Indicateur)) +
xlab("") + ylab("Evolution du pouvoir d'achat arbitrable (%)") + theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2020, 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))
1996-
Code
`CNA-2014-RDB` %>%
filter(INDICATEUR %in% c("CNA_EVOPAARMEN", "CNA_EVOPAARPP",
"CNA_EVOPAARUC")) %>%
left_join(INDICATEUR, by = "INDICATEUR") %>%
year_to_date %>%
mutate(OBS_VALUE = OBS_VALUE / 100) %>%
filter(date >= as.Date("1996-01-01")) %>%
select(date, INDICATEUR, Indicateur, OBS_VALUE) %>%
group_by(INDICATEUR) %>%
arrange(date) %>%
mutate(index = 100*cumprod(1+OBS_VALUE)) %>%
ggplot() + geom_line(aes(x = date, y = index, color = Indicateur)) +
xlab("") + ylab("Evolution du pouvoir d'achat arbitrable (%)") + theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2020, 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))