Équilibre ressources-emplois (ERE) - CNA-2014-ERE
Données - INSEE
Last observation: 2022 (N = 1482)
First observation: 1949 (N = 1308)
Last data update: 04 sept. 2026, 00:43
Last compile: 04 sept. 2026, 01:48
Structure
Table en 2019
NNTOTAL - Ensemble des produits
Code
`CNA-2014-ERE` |>
filter(CNA_PRODUIT == "NNTOTAL",
NATURE == "VALEUR_ABSOLUE",
UNIT_MEASURE == "EUROS_COURANTS",
TIME_PERIOD == "2019") |>
select(OPERATION, OPERATION, OBS_VALUE) |>
arrange(-OBS_VALUE) |>
print_table_conditional()| OPERATION | OBS_VALUE |
|---|---|
| ERERESS | 5376771 |
| EREEMPTOT | 5376771 |
| P1 | 4314969 |
| ERETEF | 3231071 |
| EREDINT | 2449463 |
| P2 | 2145700 |
| P3 | 1867051 |
| P7 | 793436 |
| P6 | 770099 |
| P5 | 593921 |
| P51G | 572293 |
| P71 | 571604 |
| P61 | 536655 |
| D21 | 291877 |
| D21N | 268366 |
| P62 | 233444 |
| P72 | 221832 |
| D211 | 173953 |
| P52 | 20818 |
| P53 | 810 |
| TR10 | 0 |
| P91 | 0 |
| P92 | 0 |
| P8 | 0 |
| D31 | -23511 |
A5-BE - Industrie manufacturière, industries extractives et autres
Code
`CNA-2014-ERE` |>
filter(CNA_PRODUIT == "A5-BE",
NATURE == "VALEUR_ABSOLUE",
UNIT_MEASURE == "EUROS_COURANTS",
TIME_PERIOD == "2019") |>
select(OPERATION, OPERATION, OBS_VALUE) |>
arrange(-OBS_VALUE) |>
print_table_conditional()| OPERATION | OBS_VALUE |
|---|---|
| ERERESS | 2137598 |
| EREEMPTOT | 2137598 |
| ERETEF | 1252019 |
| P1 | 1003184 |
| P2 | 885579 |
| EREDINT | 722562 |
| P3 | 590072 |
| P71 | 575744 |
| P7 | 575744 |
| P6 | 520561 |
| P61 | 520561 |
| P92 | 379417 |
| D21 | 157419 |
| P5 | 141386 |
| P51G | 124698 |
| D211 | 85611 |
| P91 | 31380 |
| TR10 | 24964 |
| P52 | 15878 |
| P53 | 810 |
| D31 | -9546 |
A5-GU - Services principalement marchands
Code
`CNA-2014-ERE` |>
filter(CNA_PRODUIT == "A5-GU",
NATURE == "VALEUR_ABSOLUE",
UNIT_MEASURE == "EUROS_COURANTS",
TIME_PERIOD == "2019") |>
select(OPERATION, OPERATION, OBS_VALUE) |>
arrange(-OBS_VALUE) |>
print_table_conditional()| OPERATION | OBS_VALUE |
|---|---|
| P1 | 2321177 |
| ERERESS | 2129628 |
| EREEMPTOT | 2129628 |
| P2 | 1085468 |
| ERETEF | 1044160 |
| EREDINT | 869017 |
| P3 | 667297 |
| P5 | 204149 |
| P51G | 203302 |
| P72 | 176173 |
| P7 | 176173 |
| P6 | 172714 |
| P62 | 172714 |
| D21 | 101134 |
| D211 | 57189 |
| TR10 | 17815 |
| P52 | 847 |
| D31 | -12697 |
| P8 | -18812 |
| P91 | -33259 |
| P92 | -404088 |
P1, P2, P3
Value
Code
`CNA-2014-ERE` |>
filter(CNA_PRODUIT == "NNTOTAL",
OPERATION %in% c("P1", "P2", "P3"),
NATURE == "VALEUR_ABSOLUE",
UNIT_MEASURE == "EUROS_COURANTS") |>
year_to_date() |>
select(date, OPERATION, OPERATION, OBS_VALUE, UNIT_MEASURE) |>
ggplot() + geom_line(aes(x = date, y = OBS_VALUE/1000, color = OPERATION)) +
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, 500),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
% of GDP
Code
`CNA-2014-ERE` |>
filter(CNA_PRODUIT == "NNTOTAL",
OPERATION %in% c("P1", "P2", "P3"),
NATURE == "VALEUR_ABSOLUE",
UNIT_MEASURE == "EUROS_COURANTS") |>
year_to_date() |>
select(date, OPERATION, OPERATION, OBS_VALUE, UNIT_MEASURE) |>
left_join(gdp, by = "date") |>
mutate(OBS_VALUE = OBS_VALUE/gdp) |>
ggplot() + theme_minimal() + xlab("") + ylab("") +
geom_line(aes(x = date, y = OBS_VALUE, color = OPERATION, linetype = OPERATION)) +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2020, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.25, 0.9),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(0, 400, 20),
labels = percent_format(a = 1))
P6, P7
Value
Code
`CNA-2014-ERE` |>
filter(CNA_PRODUIT == "NNTOTAL",
OPERATION %in% c("P6", "P7"),
NATURE == "VALEUR_ABSOLUE",
UNIT_MEASURE == "EUROS_COURANTS") |>
year_to_date() |>
select(date, OPERATION, OPERATION, OBS_VALUE, UNIT_MEASURE) |>
ggplot() + geom_line(aes(x = date, y = OBS_VALUE/1000, color = OPERATION)) +
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))
% of GDP
Code
`CNA-2014-ERE` |>
filter(CNA_PRODUIT == "NNTOTAL",
OPERATION %in% c("P6", "P7"),
NATURE == "VALEUR_ABSOLUE",
UNIT_MEASURE == "EUROS_COURANTS") |>
year_to_date() |>
select(date, OPERATION, OPERATION, OBS_VALUE, UNIT_MEASURE) |>
left_join(gdp, by = "date") |>
mutate(OBS_VALUE = OBS_VALUE/gdp) |>
ggplot() + theme_minimal() + xlab("") + ylab("") +
geom_line(aes(x = date, y = OBS_VALUE, color = OPERATION)) +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2020, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.25, 0.9),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(0, 400, 2),
labels = percent_format(a = 1))
P61, P71, P62, P72
Value
Code
`CNA-2014-ERE` |>
filter(CNA_PRODUIT == "NNTOTAL",
OPERATION %in% c("P61", "P71", "P62", "P72"),
NATURE == "VALEUR_ABSOLUE",
UNIT_MEASURE == "EUROS_COURANTS") |>
year_to_date() |>
select(date, OPERATION, OPERATION, OBS_VALUE, UNIT_MEASURE) |>
ggplot() + theme_minimal() + xlab("") + ylab("") +
geom_line(aes(x = date, y = OBS_VALUE/1000, color = OPERATION, linetype = OPERATION)) +
scale_color_manual(values = viridis(3)[c(1, 2, 1, 2)]) +
scale_linetype_manual(values = c("dashed","dashed", "solid", "solid")) +
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))
% of GDP
Code
`CNA-2014-ERE` |>
filter(CNA_PRODUIT == "NNTOTAL",
OPERATION %in% c("P61", "P71", "P62", "P72"),
NATURE == "VALEUR_ABSOLUE",
UNIT_MEASURE == "EUROS_COURANTS") |>
year_to_date() |>
select(date, OPERATION, OPERATION, OBS_VALUE, UNIT_MEASURE) |>
left_join(gdp, by = "date") |>
mutate(OBS_VALUE = OBS_VALUE/gdp) |>
ggplot() + theme_minimal() + xlab("") + ylab("") +
geom_line(aes(x = date, y = OBS_VALUE, color = OPERATION, linetype = OPERATION)) +
scale_color_manual(values = viridis(3)[c(1, 2, 1, 2)]) +
scale_linetype_manual(values = c("dashed","dashed", "solid", "solid")) +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2020, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.25, 0.9),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(0, 100, 2),
labels = percent_format(a = 1))
