source | dataset | .html | .RData |
---|---|---|---|
insee | CNT-2014-OPERATIONS | 2024-11-15 | 2024-11-17 |
insee | CNT-2014-PIB-EQB-RF | 2024-11-17 | 2024-11-17 |
Opérations sur biens et services
Data - Insee
Info
Données sur la macroéconomie en France
source | dataset | .html | .RData |
---|---|---|---|
bdf | CFT | 2024-11-17 | 2024-07-01 |
insee | CNA-2014-CONSO-MEN | 2024-11-09 | 2024-11-09 |
insee | CNA-2014-CONSO-SI | 2024-11-09 | 2024-11-09 |
insee | CNA-2014-CSI | 2024-11-09 | 2024-11-09 |
insee | CNA-2014-FBCF-BRANCHE | 2024-11-17 | 2024-11-17 |
insee | CNA-2014-FBCF-SI | 2024-06-07 | 2024-11-17 |
insee | CNA-2014-PIB | 2024-11-09 | 2024-11-09 |
insee | CNA-2014-RDB | 2024-11-16 | 2024-11-16 |
insee | CNT-2014-CB | 2024-11-17 | 2024-11-17 |
insee | CNT-2014-CSI | 2024-11-17 | 2024-11-17 |
insee | CNT-2014-OPERATIONS | 2024-11-15 | 2024-11-17 |
insee | CNT-2014-PIB-EQB-RF | 2024-11-17 | 2024-11-17 |
insee | CONSO-MENAGES-2014 | 2024-11-17 | 2024-11-17 |
insee | conso-mensuelle | 2024-06-07 | 2023-07-04 |
insee | ICA-2015-IND-CONS | 2024-11-17 | 2024-11-16 |
insee | t_1101 | 2024-11-09 | 2022-01-02 |
insee | t_1102 | 2024-11-09 | 2020-10-30 |
insee | t_1105 | 2024-11-09 | 2020-10-30 |
LAST_UPDATE
Code
`CNT-2014-OPERATIONS` %>%
group_by(LAST_UPDATE) %>%
summarise(Nobs = n()) %>%
arrange(desc(LAST_UPDATE)) %>%
print_table_conditional()
LAST_UPDATE | Nobs |
---|---|
2024-04-30 | 204676 |
Last
Code
`CNT-2014-OPERATIONS` %>%
filter(TIME_PERIOD == max(TIME_PERIOD)) %>%
select(TIME_PERIOD, TITLE_FR, OBS_VALUE) %>%
arrange(TITLE_FR) %>%
print_table_conditional()
OPERATION
Code
`CNT-2014-OPERATIONS` %>%
left_join(OPERATION, by = "OPERATION") %>%
group_by(OPERATION, Operation) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
OPERATION | Operation | Nobs |
---|---|---|
P1 | P1 - Production | 14448 |
P2 | P2 - Consommation intermédiaire (emploi intermédiaire) | 14448 |
P3M | P3M - Dépenses de consommation des ménages | 14448 |
D211 | D211 - Impôts de type 'Taxe à la Valeur Ajoutée' (TVA) | 14147 |
P7 | P7 - Importations de biens et services | 13244 |
P6 | P6 - Exportations de biens et services | 12642 |
D214 | D214 - Autres impôts sur les produits | 12341 |
D319 | D319 - Autres subventions sur les produits | 11739 |
P31G | P31G - Dépenses de consommation individualisables des APU | 10836 |
MEMP | MEMP - Marges commerciales | 8428 |
P51 | P51 - Formation brute de capital fixe | 8428 |
P51S | P51S - FBCF des entreprises non financières (y compris entreprises individuelles) | 8428 |
TEMP | TEMP - Marges de transport | 8428 |
P51B | P51B - FBCF des entreprises financières (y compris entreprises individuelles) | 7826 |
D212 | D212 - Impôts sur les importations autres que la taxe à la valeur ajoutée | 7525 |
P51GG | P51G - FBCF des administrations publiques | 7224 |
P51P | P51P - FBCF des ISBLSM | 6622 |
P52 | P52 - Variation de stocks | 5716 |
P54 | P54 - Stocks et acquisitions moins cession d'objets de valeur | 4816 |
P32G | P32G - Dépenses de consommation collectives des APU | 3612 |
P3P | P3P - Dépenses de consommation des ISBLSM | 3010 |
P51M | P51M - FBCF des ménages (hors entreprises individuelles) | 3010 |
P73 | P73 - Correction CAF / FAB | 1806 |
P53 | P53 - Acquisitions moins cession d'objets de valeur | 1504 |
VALORISATION
Code
`CNT-2014-OPERATIONS` %>%
left_join(VALORISATION, by = "VALORISATION") %>%
group_by(VALORISATION, Valorisation) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
VALORISATION | Valorisation | Nobs |
---|---|---|
V | Valeurs aux prix courants | 106554 |
L | Volumes aux prix de l'année précédente chaînés | 96922 |
SO | Sans objet | 1200 |
INDICATEUR
Code
`CNT-2014-OPERATIONS` %>%
left_join(INDICATEUR, by = "INDICATEUR") %>%
group_by(INDICATEUR, Indicateur) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
INDICATEUR | Indicateur | Nobs |
---|---|---|
CNT-OPERATION_BIENS_SERVICES | Opérations sur biens et services | 203476 |
CNT-OPERATIONS_SECTEURS_INST | Opérations des secteurs institutionnels | 1200 |
CNA_PRODUIT
Code
`CNT-2014-OPERATIONS` %>%
left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
group_by(CNA_PRODUIT, Cna_produit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
CNA_PRODUIT | Cna_produit | Nobs |
---|---|---|
DS-CNT | Ensemble des services | 13244 |
DSM-CNT | Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) | 13244 |
A17-C5 | A17-C5 - Fabrication d'autres produits industriels | 11137 |
DB-CNT | Ensemble des biens | 11137 |
DI-CNT | Industrie (DE, C1, C2, C3, C4, C5) | 11137 |
DIM-CNT | Industrie manufacturière (C1, C2, C3, C4, C5) | 11137 |
A17-C4 | A17-C4 - Fabrication de matériels de transport | 10836 |
A17-C3 | A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines | 10234 |
A17-JZ | A17-JZ - Information et communication | 10234 |
A17-MN | A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien | 10234 |
A17-RU | A17-RU - Autres activités de services | 9632 |
A17-AZ | A17-AZ - Agriculture, sylviculture et pêche | 8428 |
A17-C1 | A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac | 7826 |
A17-FZ | A17-FZ - Construction | 7826 |
A17-C2 | A17-C2 - Cokéfaction et raffinage | 7224 |
A17-DE | A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution | 7224 |
A17-HZ | A17-HZ - Transports et entreposage | 6020 |
A17-LZ | A17-LZ - Activités immobilières | 6020 |
A17-OQ | A17-OQ - Administration publique, enseignement, santé humaine et action sociale | 6020 |
DSN-CNT | Tertiaire principalement non marchand (OQ) | 6020 |
A17-KZ | A17-KZ - Activités financières et d'assurance | 4816 |
A17-GZ | A17-GZ - Commerce ; réparation d'automobiles et de motocycles | 4214 |
A17-IZ | A17-IZ - Hébergement et restauration | 4214 |
D-CNT | Ensemble des biens et services | 2408 |
A17-PCHTR | Produits consommés hors du territoire de résidence | 1806 |
A17-PCAFAB | Correction CAF-FAB | 1204 |
SO | Sans objet | 1200 |
TIME_PERIOD
Code
`CNT-2014-OPERATIONS` %>%
group_by(TIME_PERIOD) %>%
summarise(Nobs = n()) %>%
arrange(desc(TIME_PERIOD)) %>%
print_table_conditional
Consommation
1970-
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P3M"),
== "T",
FREQ %in% c("A17-AZ", "A17-C1"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(tibble(CNA_PRODUIT = c("A17-AZ", "A17-C1"),
Cna_produit = c("Agriculture",
"Industrie agro")), by = "CNA_PRODUIT") %>%
mutate(Cna_produit = ordered(Cna_produit, levels = c("Agriculture",
"Industrie agro"))) %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
mutate(obsValue = P3M/gdp) %>%
arrange(desc(date)) %>%
filter(date >= as.Date("1970-01-01")) %>%
+ geom_line(aes(x = date, y = obsValue, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Consommation des ménages (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 10) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.75, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
Net Exports
Comptes des Relations avec le RdM
Code
i_g("bib/insee/TEF2020/142/compte-des-relations-avec-le-RdM.png")
Solde extérieur de biens et de services par produit
Code
i_g("bib/insee/TEF2020/142/solde-exterieur-de-biens-et-de-services.png")
Solde des échanges extérieurs de Biens et Services
Code
i_g("bib/insee/TEF2020/142/solde-des-echanges-exterieurs.png")
Table
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ == "V",
VALORISATION %in% c("1950-Q1", "1970-Q1", "1990-Q1", "2020-Q1")) %>%
TIME_PERIOD left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date arrange(date) %>%
select(CNA_PRODUIT, Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
mutate(year = year(date)) %>%
transmute(CNA_PRODUIT, Cna_produit, date, value = round(100*(P6-P7)/gdp, 1)) %>%
spread(date, value) %>%
print_table_conditional
CNA_PRODUIT | Cna_produit | 1950-01-01 | 1970-01-01 | 1990-01-01 | 2020-01-01 |
---|---|---|---|---|---|
A17-AZ | A17-AZ - Agriculture, sylviculture et pêche | -3.3 | -0.2 | 0.5 | 0.1 |
A17-C1 | A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac | -0.1 | -0.1 | 0.3 | 0.3 |
A17-C2 | A17-C2 - Cokéfaction et raffinage | -0.2 | -0.1 | -0.2 | -0.8 |
A17-C3 | A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines | 0.3 | 0.0 | -0.9 | -1.3 |
A17-C4 | A17-C4 - Fabrication de matériels de transport | 0.8 | 0.7 | 0.9 | 0.8 |
A17-C5 | A17-C5 - Fabrication d'autres produits industriels | 2.6 | 0.6 | -0.9 | -0.5 |
A17-DE | A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution | -1.6 | -1.4 | -1.3 | -0.8 |
A17-GZ | A17-GZ - Commerce ; réparation d'automobiles et de motocycles | 0.1 | -0.1 | -0.1 | -0.1 |
A17-HZ | A17-HZ - Transports et entreposage | 1.4 | -0.1 | -0.2 | -0.5 |
A17-JZ | A17-JZ - Information et communication | 0.0 | -0.1 | -0.2 | -0.1 |
A17-KZ | A17-KZ - Activités financières et d'assurance | 0.1 | 0.1 | 0.2 | 0.3 |
A17-MN | A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien | 0.1 | 0.0 | 0.2 | 0.1 |
A17-OQ | A17-OQ - Administration publique, enseignement, santé humaine et action sociale | 0.0 | 0.0 | 0.0 | 0.0 |
A17-PCAFAB | Correction CAF-FAB | NA | NA | NA | NA |
A17-PCHTR | Produits consommés hors du territoire de résidence | 0.0 | 0.0 | 0.4 | 0.4 |
A17-RU | A17-RU - Autres activités de services | 0.0 | 0.0 | 0.1 | 0.0 |
DB-CNT | Ensemble des biens | -1.4 | -0.5 | -1.5 | -2.3 |
DI-CNT | Industrie (DE, C1, C2, C3, C4, C5) | 2.0 | -0.3 | -2.0 | -2.3 |
DIM-CNT | Industrie manufacturière (C1, C2, C3, C4, C5) | 3.6 | 1.1 | -0.7 | -1.6 |
DS-CNT | Ensemble des services | 1.8 | -0.1 | -0.1 | -0.3 |
DSM-CNT | Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) | 1.8 | -0.1 | -0.1 | -0.3 |
DSN-CNT | Tertiaire principalement non marchand (OQ) | 0.0 | 0.0 | 0.0 | 0.0 |
Industrie Manufacturière + Energie, Industrie Manufacturière
Tous
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(tibble(CNA_PRODUIT = c("DIM-CNT", "DI-CNT"),
Cna_produit = c("Balance commerciale Manuf.",
"Balance commerciale Manuf. + Energie")),
by = "CNA_PRODUIT") %>%
mutate(Cna_produit = ordered(Cna_produit, levels = c("Balance commerciale Manuf.",
"Balance commerciale Manuf. + Energie"))) %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
mutate(obsValue = (P6-P7)/gdp) %>%
arrange(desc(date)) %>%
select(-P6, -P7, -gdp) %>%
+ geom_line(aes(x = date, y = obsValue, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Balance Commerciale (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 10) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.75, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
1970-
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(tibble(CNA_PRODUIT = c("DIM-CNT", "DI-CNT"),
Cna_produit = c("Industrie Manufacturière",
"Industrie Manufacturière + Energie")), by = "CNA_PRODUIT") %>%
mutate(Cna_produit = ordered(Cna_produit, levels = c("Industrie Manufacturière",
"Industrie Manufacturière + Energie"))) %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
mutate(obsValue = (P6-P7)/gdp) %>%
arrange(desc(date)) %>%
filter(date >= as.Date("1970-01-01")) %>%
+ geom_line(aes(x = date, y = obsValue, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Balance Commerciale (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 10) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.75, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
1990-
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(tibble(CNA_PRODUIT = c("DIM-CNT", "DI-CNT"),
Cna_produit = c("Industrie Manufacturière",
"Industrie Manufacturière + Energie")), by = "CNA_PRODUIT") %>%
mutate(Cna_produit = ordered(Cna_produit, levels = c("Industrie Manufacturière",
"Industrie Manufacturière + Energie"))) %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
mutate(obsValue = (P6-P7)/gdp) %>%
arrange(desc(date)) %>%
filter(date >= as.Date("1990-01-01")) %>%
+ geom_line(aes(x = date, y = obsValue, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Balance Commerciale (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.75, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
Biens, Industrie, Industrie Manuf
Tous
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT", "DB-CNT"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(tibble(CNA_PRODUIT = c("DIM-CNT", "DI-CNT", "DB-CNT"),
Cna_produit = c("Industrie Manufacturière",
"Industrie (Industrie Manuf. + Energie)",
"Biens (Industrie + Agriculture)")), by = "CNA_PRODUIT") %>%
mutate(Cna_produit = ordered(Cna_produit, levels = c("Industrie Manufacturière",
"Industrie (Industrie Manuf. + Energie)",
"Biens (Industrie + Agriculture)"))) %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
mutate(obsValue = (P6-P7)/gdp) %>%
arrange(desc(date)) %>%
+ geom_line(aes(x = date, y = obsValue, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Balance Commerciale (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 10) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.75, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
1970-
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT", "DB-CNT"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
mutate(obsValue = (P6-P7)/gdp) %>%
arrange(desc(date)) %>%
filter(date >= as.Date("1970-01-01")) %>%
+ geom_line(aes(x = date, y = obsValue, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.8, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
1980-
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT", "DB-CNT"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
mutate(obsValue = (P6-P7)/gdp) %>%
arrange(desc(date)) %>%
filter(date >= as.Date("1980-01-01")) %>%
+ geom_line(aes(x = date, y = obsValue, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.75, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
Table
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT", "DB-CNT"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
transmute(Cna_produit, date,
`% du PIB` = 100*(P6-P7)/gdp) %>%
group_by(Cna_produit) %>%
arrange(`% du PIB`) %>%
head(3) %>%
print_table_conditional()
Cna_produit | date | % du PIB |
---|---|---|
Industrie (DE, C1, C2, C3, C4, C5) | 2022-07-01 | -7.349884 |
Ensemble des biens | 2022-07-01 | -7.061350 |
Industrie (DE, C1, C2, C3, C4, C5) | 2022-04-01 | -6.935217 |
Industrie Manuf
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("DIM-CNT"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
mutate(value = (P6-P7)/gdp) %>%
+ geom_line(aes(x = date, y = value)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations Nettes, Industrie manufacturière (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 10) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.75, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
Biens, Agriculture, Industrie, Industrie Manuf
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("A17-AZ", "A17-C1"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
+ geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, .5),
labels = percent_format(accuracy = .1)) +
theme(legend.position = c(0.55, 0.2),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
Biens, Agriculture, Industrie, Industrie Manuf
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("A17-AZ", "DIM-CNT", "DI-CNT", "DB-CNT"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
+ geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.75, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
Industrie Manufacturière + Energie, Industrie Manufacturière
1995-
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date filter(date >= as.Date("1995-01-01")) %>%
arrange(date) %>%
select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
+ geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("% du PIB") +
scale_x_date(breaks = seq(1940, 2025, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.65, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
1954-1962
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date arrange(date) %>%
filter(date >= as.Date("1954-01-01"),
<= as.Date("1962-01-01")) %>%
date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
+ geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 1) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.65, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
2017T2-
% of PIB
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date arrange(date) %>%
filter(date >= as.Date("2017-04-01")) %>%
select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
+ geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 1) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, .5),
labels = percent_format(accuracy = .1)) +
theme(legend.position = c(0.65, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
Valeur (courant)
Trimestriel
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT"),
CNA_PRODUIT == "L") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date arrange(date) %>%
#filter(date >= as.Date("2017-04-01")) %>%
select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
+ geom_line(aes(x = date, y = (P6-P7)/1000, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations Nettes (Mds€ / trimestre)") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(-100, 500, 5)) +
theme(legend.position = c(0.25, 0.2),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
Annuel
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT"),
CNA_PRODUIT == "L") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date arrange(date) %>%
#filter(date >= as.Date("2017-04-01")) %>%
select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
+ geom_line(aes(x = date, y = 4*(P6-P7)/1000, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations Nettes (Mds€ / an)") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(-200, 500, 20),
labels = dollar_format(pre = "", su = " Mds€")) +
theme(legend.position = c(0.25, 0.2),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
Biens, Services
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("DS-CNT", "DB-CNT"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
+ geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.85, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
Biens, Services
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("DSM-CNT", "DB-CNT"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
mutate(obsValue = (P6-P7)/gdp) %>%
+ geom_line(aes(x = date, y = obsValue, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.85, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
Biens, Services, B&S
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("DS-CNT", "DB-CNT", "D-CNT"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
+ geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.85, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
Ensemble des services, A17-HZ - Transports et entreposage
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("A17-HZ", "DS-CNT"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
+ geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("% du PIB") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, .2),
labels = percent_format(accuracy = .1)) +
theme(legend.position = c(0.75, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
Industrie catégorie
C2, C3, C5
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("A17-C3", "A17-C2", "A17-C5"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
+ geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("% du PIB") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, .5),
labels = percent_format(accuracy = .1),
limits = c(-0.02, 0.05)) +
theme(legend.position = c(0.45, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
C1, C2, C3, C4, C5
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("A17-C3", "A17-C1", "A17-C2", "A17-C5", "A17-C4"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
+ geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("% du PIB") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, .5),
labels = percent_format(accuracy = .1),
limits = c(-0.02, 0.05)) +
theme(legend.position = c(0.45, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
Décomposition des Services
Services Marchands, non marchands
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("DSM-CNT", "DSN-CNT", "A17-PCAFAB"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
+ geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, .1),
labels = percent_format(accuracy = .1)) +
theme(legend.position = c(0.35, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
Commerce, Information-Communication, Finance-Assurance
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("A17-GZ", "A17-JZ", "A17-KZ"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
+ geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, .1),
labels = percent_format(accuracy = .1)) +
theme(legend.position = c(0.35, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
Commerce, Information-Communication, Finance-Assurance
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("DS-CNT", "DB-CNT", "A17-HZ"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
+ geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, .5),
labels = percent_format(accuracy = .1)) +
theme(legend.position = c(0.5, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
Commerce, Information-Communication, Finance-Assurance
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("DS-CNT", "DB-CNT", "A17-HZ"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
+ geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, .5),
labels = percent_format(accuracy = .1)) +
theme(legend.position = c(0.5, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
Transports et entreposage, Activités scientifiques
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("A17-RU", "A17-MN", "A17-HZ"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
%>%
quarter_to_date select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
spread(OPERATION, OBS_VALUE) %>%
left_join(gdp_quarterly, by = "date") %>%
+ geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, .5),
labels = percent_format(accuracy = .1)) +
theme(legend.position = c(0.5, 0.9),
legend.title = element_blank()) +
geom_hline(yintercept = 0, linetype = "dashed")
Exportations, Importations
Transports et Entreposage
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("A17-HZ"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(OPERATION, by = "OPERATION") %>%
%>%
quarter_to_date left_join(gdp_quarterly, by = "date") %>%
+ geom_line(aes(x = date, y = OBS_VALUE/gdp, color = Operation)) +
ggplot theme_minimal() + xlab("") + ylab("Transports et entreposage (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, .2),
labels = percent_format(accuracy = .1)) +
theme(legend.position = c(0.5, 0.9),
legend.title = element_blank())
Activités financi!res et assurances
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ %in% c("A17-KZ"),
CNA_PRODUIT == "V") %>%
VALORISATION left_join(OPERATION, by = "OPERATION") %>%
%>%
quarter_to_date left_join(gdp_quarterly, by = "date") %>%
+ geom_line(aes(x = date, y = OBS_VALUE/gdp, color = Operation)) +
ggplot theme_minimal() + xlab("") + ylab("Activités financi!res et assurances (% du PIB)") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 500, .2),
labels = percent_format(accuracy = .1)) +
theme(legend.position = c(0.8, 0.9),
legend.title = element_blank())
Exportations
Table - Douanes
Code
i_g("bib/douanes/3T2022/tableaux-exportations.png")
Table
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6"),
== "T",
FREQ == "2022-Q3") %>%
TIME_PERIOD left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
left_join(VALORISATION, by = "VALORISATION") %>%
mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
select(CNA_PRODUIT, Cna_produit, Valorisation, OBS_VALUE) %>%
spread(Valorisation, OBS_VALUE) %>%
arrange(-`Valeurs aux prix courants`) %>%
print_table_conditional()
CNA_PRODUIT | Cna_produit | Valeurs aux prix courants | Volumes aux prix de l'année précédente chaînés |
---|---|---|---|
DB-CNT | Ensemble des biens | 161.455 | 127.674 |
DI-CNT | Industrie (DE, C1, C2, C3, C4, C5) | 154.863 | 123.140 |
DIM-CNT | Industrie manufacturière (C1, C2, C3, C4, C5) | 145.847 | 120.815 |
A17-C5 | A17-C5 - Fabrication d'autres produits industriels | 68.803 | 56.478 |
DS-CNT | Ensemble des services | 60.482 | 46.898 |
DSM-CNT | Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) | 60.213 | 46.660 |
A17-C4 | A17-C4 - Fabrication de matériels de transport | 30.496 | 24.997 |
A17-C3 | A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines | 26.378 | 23.701 |
A17-MN | A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien | 23.401 | 20.818 |
A17-HZ | A17-HZ - Transports et entreposage | 20.394 | 10.178 |
A17-C1 | A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac | 15.874 | 12.629 |
A17-PCHTR | Produits consommés hors du territoire de résidence | 15.585 | 13.562 |
A17-DE | A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution | 9.016 | 2.732 |
A17-JZ | A17-JZ - Information et communication | 7.272 | 7.409 |
A17-AZ | A17-AZ - Agriculture, sylviculture et pêche | 6.592 | 4.510 |
A17-KZ | A17-KZ - Activités financières et d'assurance | 6.134 | 5.646 |
A17-C2 | A17-C2 - Cokéfaction et raffinage | 4.297 | 2.749 |
A17-GZ | A17-GZ - Commerce ; réparation d'automobiles et de motocycles | 1.904 | 1.838 |
A17-RU | A17-RU - Autres activités de services | 1.107 | 1.018 |
A17-OQ | A17-OQ - Administration publique, enseignement, santé humaine et action sociale | 0.269 | 0.234 |
DSN-CNT | Tertiaire principalement non marchand (OQ) | 0.269 | 0.234 |
Biens, Industrie, Industrie manuf.
Tous
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
CNA_PRODUIT left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
left_join(VALORISATION, by = "VALORISATION") %>%
%>%
quarter_to_date mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
scale_x_date(breaks = seq(1940, 2025, 10) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_linetype_manual(values = c("dashed", "solid")) +
scale_y_continuous(breaks = seq(-100, 500, 10),
labels = dollar_format(pre = "", su = " Mds€")) +
theme(legend.position = c(0.25, 0.75),
legend.title = element_blank())
1995-
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
CNA_PRODUIT left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
left_join(VALORISATION, by = "VALORISATION") %>%
%>%
quarter_to_date filter(date >= as.Date("1995-01-01")) %>%
mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_linetype_manual(values = c("dashed", "solid")) +
scale_y_continuous(breaks = seq(-100, 500, 10),
labels = dollar_format(pre = "", su = " Mds€")) +
theme(legend.position = c(0.25, 0.8),
legend.title = element_blank())
2000-
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
CNA_PRODUIT left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
left_join(VALORISATION, by = "VALORISATION") %>%
%>%
quarter_to_date filter(date >= as.Date("2000-01-01")) %>%
mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
scale_x_date(breaks = seq(1940, 2025, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_linetype_manual(values = c("dashed", "solid")) +
scale_y_continuous(breaks = seq(-100, 500, 10),
labels = dollar_format(pre = "", su = " Mds€")) +
theme(legend.position = c(0.25, 0.8),
legend.title = element_blank())
2017-
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
CNA_PRODUIT left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
left_join(VALORISATION, by = "VALORISATION") %>%
%>%
quarter_to_date filter(date >= as.Date("2017-07-01")) %>%
mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
scale_x_date(breaks = seq(1940, 2025, 1) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_linetype_manual(values = c("dashed", "solid")) +
scale_y_continuous(breaks = seq(-100, 500, 10),
labels = dollar_format(pre = "", su = " Mds€")) +
theme(legend.position = c(0.25, 0.25),
legend.title = element_blank())
C1, C2, C3, C4, C5
Tous
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6"),
== "T",
FREQ %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
CNA_PRODUIT left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
left_join(VALORISATION, by = "VALORISATION") %>%
%>%
quarter_to_date mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
scale_x_date(breaks = seq(1940, 2025, 10) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_linetype_manual(values = c("dashed", "solid")) +
scale_y_continuous(breaks = seq(-100, 500, 10),
labels = dollar_format(pre = "", su = " Mds€")) +
theme(legend.position = c(0.47, 0.75),
legend.title = element_blank())
1995-
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6"),
== "T",
FREQ %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
CNA_PRODUIT left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
left_join(VALORISATION, by = "VALORISATION") %>%
%>%
quarter_to_date filter(date >= as.Date("1995-01-01")) %>%
mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_linetype_manual(values = c("dashed", "solid")) +
scale_y_continuous(breaks = seq(-100, 500, 10),
labels = dollar_format(pre = "", su = " Mds€")) +
theme(legend.position = c(0.47, 0.75),
legend.title = element_blank())
2000-
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6"),
== "T",
FREQ %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
CNA_PRODUIT left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
left_join(VALORISATION, by = "VALORISATION") %>%
%>%
quarter_to_date filter(date >= as.Date("2000-01-01")) %>%
mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
scale_x_date(breaks = seq(1940, 2025, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_linetype_manual(values = c("dashed", "solid")) +
scale_y_continuous(breaks = seq(-100, 500, 10),
labels = dollar_format(pre = "", su = " Mds€")) +
theme(legend.position = c(0.47, 0.75),
legend.title = element_blank())
2017-
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6"),
== "T",
FREQ %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
CNA_PRODUIT left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
left_join(VALORISATION, by = "VALORISATION") %>%
%>%
quarter_to_date filter(date >= as.Date("2017-07-01")) %>%
mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
scale_x_date(breaks = seq(1940, 2025, 1) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_linetype_manual(values = c("dashed", "solid")) +
scale_y_continuous(breaks = seq(-100, 500, 10),
labels = dollar_format(pre = "", su = " Mds€")) +
theme(legend.position = c(0.47, 0.75),
legend.title = element_blank())
Importations
Table
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P7"),
== "T",
FREQ == "2022-Q3") %>%
TIME_PERIOD left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
left_join(VALORISATION, by = "VALORISATION") %>%
mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
select(CNA_PRODUIT, Cna_produit, Valorisation, OBS_VALUE) %>%
spread(Valorisation, OBS_VALUE) %>%
arrange(-`Valeurs aux prix courants`) %>%
print_table_conditional()
CNA_PRODUIT | Cna_produit | Valeurs aux prix courants | Volumes aux prix de l'année précédente chaînés |
---|---|---|---|
DB-CNT | Ensemble des biens | 208.566 | 159.657 |
DI-CNT | Industrie (DE, C1, C2, C3, C4, C5) | 203.899 | 156.136 |
DIM-CNT | Industrie manufacturière (C1, C2, C3, C4, C5) | 169.028 | 141.186 |
A17-C5 | A17-C5 - Fabrication d'autres produits industriels | 78.424 | 62.376 |
DS-CNT | Ensemble des services | 55.891 | 47.716 |
DSM-CNT | Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) | 55.707 | 47.436 |
A17-C3 | A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines | 38.517 | 36.495 |
A17-DE | A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution | 34.870 | 14.158 |
A17-C4 | A17-C4 - Fabrication de matériels de transport | 27.568 | 23.908 |
A17-MN | A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien | 23.524 | 20.918 |
A17-HZ | A17-HZ - Transports et entreposage | 17.326 | 12.320 |
A17-C1 | A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac | 14.411 | 11.275 |
A17-C2 | A17-C2 - Cokéfaction et raffinage | 10.108 | 6.583 |
A17-PCHTR | Produits consommés hors du territoire de résidence | 9.497 | 8.263 |
A17-JZ | A17-JZ - Information et communication | 8.538 | 8.369 |
A17-AZ | A17-AZ - Agriculture, sylviculture et pêche | 4.667 | 3.546 |
A17-GZ | A17-GZ - Commerce ; réparation d'automobiles et de motocycles | 2.768 | 2.670 |
A17-KZ | A17-KZ - Activités financières et d'assurance | 2.605 | 2.443 |
A17-RU | A17-RU - Autres activités de services | 0.946 | 0.857 |
A17-OQ | A17-OQ - Administration publique, enseignement, santé humaine et action sociale | 0.184 | 0.278 |
DSN-CNT | Tertiaire principalement non marchand (OQ) | 0.184 | 0.278 |
A17-PCAFAB | Correction CAF-FAB | -6.653 | -3.433 |
Biens, Industrie, Industrie manuf.
Tous
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P7"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
CNA_PRODUIT left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
left_join(VALORISATION, by = "VALORISATION") %>%
%>%
quarter_to_date mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
scale_x_date(breaks = seq(1940, 2025, 10) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_linetype_manual(values = c("dashed", "solid")) +
scale_y_continuous(breaks = seq(-100, 500, 10),
labels = dollar_format(pre = "", su = " Mds€")) +
theme(legend.position = c(0.25, 0.75),
legend.title = element_blank())
1995-
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P7"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
CNA_PRODUIT left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
left_join(VALORISATION, by = "VALORISATION") %>%
%>%
quarter_to_date filter(date >= as.Date("1995-01-01")) %>%
mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_linetype_manual(values = c("dashed", "solid")) +
scale_y_continuous(breaks = seq(-100, 500, 10),
labels = dollar_format(pre = "", su = " Mds€")) +
theme(legend.position = c(0.25, 0.8),
legend.title = element_blank())
2000-
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P7"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
CNA_PRODUIT left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
left_join(VALORISATION, by = "VALORISATION") %>%
%>%
quarter_to_date filter(date >= as.Date("2000-01-01")) %>%
mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
scale_x_date(breaks = seq(1940, 2025, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_linetype_manual(values = c("dashed", "solid")) +
scale_y_continuous(breaks = seq(-100, 500, 10),
labels = dollar_format(pre = "", su = " Mds€")) +
theme(legend.position = c(0.25, 0.8),
legend.title = element_blank())
2017-
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P7"),
== "T",
FREQ %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
CNA_PRODUIT left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
left_join(VALORISATION, by = "VALORISATION") %>%
%>%
quarter_to_date filter(date >= as.Date("2017-07-01")) %>%
mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
scale_x_date(breaks = seq(1940, 2025, 1) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_linetype_manual(values = c("dashed", "solid")) +
scale_y_continuous(breaks = seq(-100, 500, 10),
labels = dollar_format(pre = "", su = " Mds€")) +
theme(legend.position = c(0.3, 0.8),
legend.title = element_blank())
C1, C2, C3, C4, C5
Tous
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P7"),
== "T",
FREQ %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
CNA_PRODUIT left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
left_join(VALORISATION, by = "VALORISATION") %>%
%>%
quarter_to_date mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
scale_x_date(breaks = seq(1940, 2025, 10) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_linetype_manual(values = c("dashed", "solid")) +
scale_y_continuous(breaks = seq(-100, 500, 10),
labels = dollar_format(pre = "", su = " Mds€")) +
theme(legend.position = c(0.47, 0.75),
legend.title = element_blank())
1995-
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P7"),
== "T",
FREQ %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
CNA_PRODUIT left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
left_join(VALORISATION, by = "VALORISATION") %>%
%>%
quarter_to_date filter(date >= as.Date("1995-01-01")) %>%
mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_linetype_manual(values = c("dashed", "solid")) +
scale_y_continuous(breaks = seq(-100, 500, 10),
labels = dollar_format(pre = "", su = " Mds€")) +
theme(legend.position = c(0.47, 0.75),
legend.title = element_blank())
2000-
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P7"),
== "T",
FREQ %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
CNA_PRODUIT left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
left_join(VALORISATION, by = "VALORISATION") %>%
%>%
quarter_to_date filter(date >= as.Date("2000-01-01")) %>%
mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
scale_x_date(breaks = seq(1940, 2025, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_linetype_manual(values = c("dashed", "solid")) +
scale_y_continuous(breaks = seq(-100, 500, 10),
labels = dollar_format(pre = "", su = " Mds€")) +
theme(legend.position = c(0.47, 0.75),
legend.title = element_blank())
2017-
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P7"),
== "T",
FREQ %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
CNA_PRODUIT left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
left_join(VALORISATION, by = "VALORISATION") %>%
%>%
quarter_to_date filter(date >= as.Date("2017-07-01")) %>%
mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
ggplot theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
scale_x_date(breaks = seq(1940, 2025, 1) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_linetype_manual(values = c("dashed", "solid")) +
scale_y_continuous(breaks = seq(-100, 500, 10),
labels = dollar_format(pre = "", su = " Mds€")) +
theme(legend.position = c(0.47, 0.75),
legend.title = element_blank())
Exportations, Importations
Table
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("P6", "P7"),
== "T",
FREQ == "2022-Q3",
TIME_PERIOD == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
left_join(OPERATION, by = "OPERATION") %>%
mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
select(CNA_PRODUIT, Cna_produit, Operation, OBS_VALUE) %>%
spread(Operation, OBS_VALUE) %>%
arrange(-`P6 - Exportations de biens et services`) %>%
print_table_conditional()
CNA_PRODUIT | Cna_produit | P6 - Exportations de biens et services | P7 - Importations de biens et services |
---|---|---|---|
DB-CNT | Ensemble des biens | 161.455 | 208.566 |
DI-CNT | Industrie (DE, C1, C2, C3, C4, C5) | 154.863 | 203.899 |
DIM-CNT | Industrie manufacturière (C1, C2, C3, C4, C5) | 145.847 | 169.028 |
A17-C5 | A17-C5 - Fabrication d'autres produits industriels | 68.803 | 78.424 |
DS-CNT | Ensemble des services | 60.482 | 55.891 |
DSM-CNT | Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) | 60.213 | 55.707 |
A17-C4 | A17-C4 - Fabrication de matériels de transport | 30.496 | 27.568 |
A17-C3 | A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines | 26.378 | 38.517 |
A17-MN | A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien | 23.401 | 23.524 |
A17-HZ | A17-HZ - Transports et entreposage | 20.394 | 17.326 |
A17-C1 | A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac | 15.874 | 14.411 |
A17-PCHTR | Produits consommés hors du territoire de résidence | 15.585 | 9.497 |
A17-DE | A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution | 9.016 | 34.870 |
A17-JZ | A17-JZ - Information et communication | 7.272 | 8.538 |
A17-AZ | A17-AZ - Agriculture, sylviculture et pêche | 6.592 | 4.667 |
A17-KZ | A17-KZ - Activités financières et d'assurance | 6.134 | 2.605 |
A17-C2 | A17-C2 - Cokéfaction et raffinage | 4.297 | 10.108 |
A17-GZ | A17-GZ - Commerce ; réparation d'automobiles et de motocycles | 1.904 | 2.768 |
A17-RU | A17-RU - Autres activités de services | 1.107 | 0.946 |
A17-OQ | A17-OQ - Administration publique, enseignement, santé humaine et action sociale | 0.269 | 0.184 |
DSN-CNT | Tertiaire principalement non marchand (OQ) | 0.269 | 0.184 |
A17-PCAFAB | Correction CAF-FAB | NA | -6.653 |
TVA - D211
Code
`CNT-2014-OPERATIONS` %>%
filter(OPERATION %in% c("D211"),
== "T",
FREQ %in% c("2023-Q1", "2023-Q2", "2022-Q1", "2022-Q2"),
TIME_PERIOD == "V") %>%
VALORISATION left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
select(Cna_produit, TIME_PERIOD, OBS_VALUE) %>%
spread(TIME_PERIOD, OBS_VALUE) %>%
mutate(`(2023-Q1+2023-Q2)/(2022-Q1+2022-Q2)-1` = percent((`2023-Q1` + `2023-Q2`)/(`2022-Q1` + `2022-Q2`)-1)) %>%
arrange(-`2023-Q1`) %>%
print_table_conditional()
Cna_produit | 2022-Q1 | 2022-Q2 | 2023-Q1 | 2023-Q2 | (2023-Q1+2023-Q2)/(2022-Q1+2022-Q2)-1 |
---|---|---|---|---|---|
Ensemble des services | 25004 | 25503 | 25818 | 26057 | 2.71% |
Ensemble des biens | 23824 | 24411 | 25300 | 25308 | 4.92% |
Industrie (DE, C1, C2, C3, C4, C5) | 23253 | 23833 | 24674 | 24681 | 4.82% |
Industrie manufacturière (C1, C2, C3, C4, C5) | 20511 | 21005 | 21667 | 21625 | 4.28% |
Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) | 16827 | 17169 | 17230 | 17469 | 2.07% |
A17-C5 - Fabrication d'autres produits industriels | 7815 | 7924 | 8106 | 8148 | 3.27% |
A17-FZ - Construction | 7554 | 7714 | 7955 | 7949 | 4.17% |
A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien | 5645 | 5695 | 5711 | 5756 | 1.12% |
A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac | 4257 | 4348 | 4552 | 4591 | 6.25% |
A17-C4 - Fabrication de matériels de transport | 3458 | 3537 | 3907 | 3970 | 12.61% |
A17-C2 - Cokéfaction et raffinage | 2973 | 3162 | 3031 | 2866 | -3.88% |
A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution | 2742 | 2827 | 3007 | 3056 | 8.87% |
A17-IZ - Hébergement et restauration | 2650 | 2927 | 2949 | 3046 | 7.50% |
A17-JZ - Information et communication | 2718 | 2734 | 2817 | 2847 | 3.89% |
A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines | 2008 | 2034 | 2070 | 2050 | 1.93% |
A17-HZ - Transports et entreposage | 1434 | 1441 | 1478 | 1512 | 4.00% |
A17-RU - Autres activités de services | 1296 | 1338 | 1394 | 1419 | 6.80% |
A17-KZ - Activités financières et d'assurance | 1499 | 1428 | 1282 | 1294 | -11.99% |
A17-LZ - Activités immobilières | 839 | 856 | 809 | 800 | -5.07% |
A17-GZ - Commerce ; réparation d'automobiles et de motocycles | 746 | 751 | 789 | 795 | 5.81% |
A17-OQ - Administration publique, enseignement, santé humaine et action sociale | 623 | 620 | 633 | 639 | 2.33% |
Tertiaire principalement non marchand (OQ) | 623 | 620 | 633 | 639 | 2.33% |
A17-AZ - Agriculture, sylviculture et pêche | 571 | 578 | 627 | 627 | 9.14% |