Opérations sur biens et services

Données - INSEE

Auteur

François Geerolf

Info

source dataset Title .html .rData
insee CNT-2020-OPERATIONS Opérations sur biens et services 2026-06-04 2026-06-04
insee CNT-2020-PIB-EQB-RF Équilibre du produit intérieur brut 2026-06-04 2026-06-04

Données sur la macroéconomie en France

source dataset Title .html .rData
bdf CFT Comptes Financiers Trimestriels 2026-06-04 2025-03-09
insee CNA-2014-CONSO-SI Dépenses de consommation finale par secteur institutionnel 2026-06-04 2026-06-04
insee CNA-2014-CSI Comptes des secteurs institutionnels 2026-06-04 2026-06-04
insee CNA-2014-FBCF-BRANCHE Formation brute de capital fixe (FBCF) par branche 2026-06-04 2026-06-04
insee CNA-2014-FBCF-SI Formation brute de capital fixe (FBCF) par secteur institutionnel 2026-06-04 2026-06-04
insee CNA-2014-RDB Revenu et pouvoir d’achat des ménages 2026-06-04 2026-06-04
insee CNA-2020-CONSO-MEN Consommation des ménages 2026-06-04 2025-09-30
insee CNA-2020-PIB Produit intérieur brut (PIB) et ses composantes 2026-06-04 2025-05-28
insee CNT-2014-CB Comptes des branches 2026-06-04 2026-06-04
insee CNT-2014-CSI Comptes de secteurs institutionnels 2026-06-04 2026-06-04
insee CNT-2014-OPERATIONS Opérations sur biens et services 2026-06-04 2026-06-04
insee CNT-2014-PIB-EQB-RF Équilibre du produit intérieur brut 2026-06-04 2026-06-04
insee CONSO-MENAGES-2020 Consommation des ménages en biens 2026-06-04 2026-06-04
insee ICA-2015-IND-CONS Indices de chiffre d'affaires dans l'industrie et la construction 2026-06-04 2026-06-03
insee conso-mensuelle Consommation de biens, données mensuelles 2026-06-04 2023-07-04
insee t_1101 1.101 – Le produit intérieur brut et ses composantes à prix courants (En milliards d'euros) 2026-06-04 2022-01-02
insee t_1102 1.102 – Le produit intérieur brut et ses composantes en volume aux prix de l'année précédente chaînés (En milliards d'euros 2014) 2026-06-04 2020-10-30
insee t_1105 1.105 – Produit intérieur brut - les trois approches à prix courants (En milliards d'euros) - t_1105 2026-06-04 2020-10-30

LAST_UPDATE

Code 
`CNT-2020-OPERATIONS` %>%
  group_by(LAST_UPDATE) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(LAST_UPDATE)) %>%
  print_table_conditional()
LAST_UPDATE Nobs
2026-05-29 210738

Last

Code 
`CNT-2020-OPERATIONS` %>%
  filter(TIME_PERIOD == max(TIME_PERIOD)) %>%
  select(TIME_PERIOD, TITLE_FR, OBS_VALUE) %>%
  arrange(TITLE_FR) %>%
  print_table_conditional()

OPERATION

Code 
`CNT-2020-OPERATIONS` %>%
  left_join(OPERATION,  by = "OPERATION") %>%
  group_by(OPERATION, Operation) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
OPERATION Operation Nobs
P1 P1 - Production 14832
P2 P2 - Consommation intermédiaire (emploi intermédiaire) 14832
P3M P3M - Dépenses de consommation des ménages 14832
D211 D211 - Impôts de type 'Taxe à la Valeur Ajoutée' (TVA) 14523
P7 P7 - Importations de biens et services 14214
P6 P6 - Exportations de biens et services 13596
D214 D214 - Autres impôts sur les produits 12669
D319 D319 - Autres subventions sur les produits 10815
P31G P31G - Dépenses de consommation individualisables des APU 10506
MEMP MEMP - Marges commerciales 8652
P51 P51 - Formation brute de capital fixe 8652
P51S P51S - FBCF des entreprises non financières (y compris entreprises individuelles) 8652
TEMP TEMP - Marges de transport 8652
P51B P51B - FBCF des entreprises financières (y compris entreprises individuelles) 8034
D212 D212 - Impôts sur les importations autres que la taxe à la valeur ajoutée 7725
P51GG P51G - FBCF des administrations publiques 7416
P51P P51P - FBCF des ISBLSM 6798
P52 P52 - Variation de stocks 5871
P32G P32G - Dépenses de consommation collectives des APU 4944
P54 P54 - Stocks et acquisitions moins cession d'objets de valeur 4944
P3P P3P - Dépenses de consommation des ISBLSM 3090
P51M P51M - FBCF des ménages (hors entreprises individuelles) 3090
P73 P73 - Correction CAF / FAB 1854
P53 P53 - Acquisitions moins cession d'objets de valeur 1545

VALORISATION

Code 
`CNT-2020-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 109695
L Volumes aux prix de l'année précédente chaînés 99807
SO Sans objet 1236

INDICATEUR

Code 
`CNT-2020-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 209502
CNT-OPERATIONS_SECTEURS_INST Opérations des secteurs institutionnels 1236

CNA_PRODUIT

Code 
`CNT-2020-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 13596
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 13596
DB-CNT Ensemble des biens 11433
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 11433
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 11433
A17-C4 A17-C4 - Fabrication de matériels de transport 11124
A17-C5 A17-C5 - Fabrication d'autres produits industriels 10815
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 10506
A17-JZ A17-JZ - Information et communication 10506
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 10506
A17-FZ A17-FZ - Construction 9270
A17-RU A17-RU - Autres activités de services 9270
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 8652
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 8034
A17-C2 A17-C2 - Cokéfaction et raffinage 7416
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 7416
A17-HZ A17-HZ - Transports et entreposage 6798
A17-LZ A17-LZ - Activités immobilières 6180
A17-OQ A17-OQ - Administration publique, enseignement, santé humaine et action sociale 6180
DSN-CNT Tertiaire principalement non marchand (OQ) 6180
A17-KZ A17-KZ - Activités financières et d'assurance 4944
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 4326
A17-IZ A17-IZ - Hébergement et restauration 4326
D-CNT Ensemble des biens et services 2472
A17-PCHTR Produits consommés hors du territoire de résidence 1854
A17-PCAFAB Correction CAF-FAB 1236
SO Sans objet 1236

TIME_PERIOD

Code 
`CNT-2020-OPERATIONS` %>%
  group_by(TIME_PERIOD) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(TIME_PERIOD)) %>%
  print_table_conditional

Consommation

1970-

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P3M"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-AZ", "A17-C1"),
         VALORISATION == "V") %>%
  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")) %>%
  ggplot + geom_line(aes(x = date, y = obsValue, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         VALORISATION == "V",
         TIME_PERIOD %in% c("1950-Q1", "1970-Q1", "1990-Q1", "2020-Q1")) %>%
  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.4 0.2
A17-C2 A17-C2 - Cokéfaction et raffinage -0.2 -0.1 -0.3 -0.8
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 0.4 0.0 -0.9 -1.3
A17-C4 A17-C4 - Fabrication de matériels de transport 0.8 0.7 1.0 1.0
A17-C5 A17-C5 - Fabrication d'autres produits industriels 2.7 0.6 -0.9 -0.7
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution -1.6 -1.4 -1.3 -0.6
A17-FZ A17-FZ - Construction 0.0 0.0 0.0 0.0
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 0.1 0.0 0.0 0.0
A17-HZ A17-HZ - Transports et entreposage 1.8 0.2 0.0 -0.1
A17-JZ A17-JZ - Information et communication 0.1 -0.1 -0.2 -0.2
A17-KZ A17-KZ - Activités financières et d'assurance 0.1 0.1 0.0 0.4
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 0.2 0.0 0.2 0.4
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.2
A17-RU A17-RU - Autres activités de services 0.0 0.0 0.1 0.0
DB-CNT Ensemble des biens -1.3 -0.5 -1.5 -2.1
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 2.0 -0.3 -2.0 -2.2
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 3.6 1.1 -0.7 -1.5
DS-CNT Ensemble des services 2.3 0.3 0.1 0.4
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 2.3 0.3 0.1 0.4
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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT"),
         VALORISATION == "V") %>%
  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) %>%
  ggplot + geom_line(aes(x = date, y = obsValue, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT"),
         VALORISATION == "V") %>%
  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")) %>%
  ggplot + geom_line(aes(x = date, y = obsValue, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT"),
         VALORISATION == "V") %>%
  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")) %>%
  ggplot + geom_line(aes(x = date, y = obsValue, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT", "DB-CNT"),
         VALORISATION == "V") %>%
  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)) %>%
  ggplot + geom_line(aes(x = date, y = obsValue, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT", "DB-CNT"),
         VALORISATION == "V") %>%
  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")) %>%
  ggplot + geom_line(aes(x = date, y = obsValue, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT", "DB-CNT"),
         VALORISATION == "V") %>%
  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")) %>%
  ggplot + geom_line(aes(x = date, y = obsValue, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT", "DB-CNT"),
         VALORISATION == "V") %>%
  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.291913
Ensemble des biens 2022-07-01 -6.991470
Industrie (DE, C1, C2, C3, C4, C5) 2022-04-01 -6.374424

Industrie Manuf

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT"),
         VALORISATION == "V") %>%
  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) %>%
  ggplot + geom_line(aes(x = date, y = value)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-AZ", "A17-C1"),
         VALORISATION == "V") %>%
  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") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-AZ", "DIM-CNT", "DI-CNT", "DB-CNT"),
         VALORISATION == "V") %>%
  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") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT"),
         VALORISATION == "V") %>%
  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") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT"),
         VALORISATION == "V") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  arrange(date) %>%
  filter(date >= as.Date("1954-01-01"),
         date <= as.Date("1962-01-01")) %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT"),
         VALORISATION == "V") %>%
  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") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT"),
         VALORISATION == "L") %>%
  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) %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/1000, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT"),
         VALORISATION == "L") %>%
  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) %>%
  ggplot + geom_line(aes(x = date, y = 4*(P6-P7)/1000, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DS-CNT", "DB-CNT"),
         VALORISATION == "V") %>%
  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") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DSM-CNT", "DB-CNT"),
         VALORISATION == "V") %>%
  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) %>%
  ggplot + geom_line(aes(x = date, y = obsValue, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DS-CNT", "DB-CNT", "D-CNT"),
         VALORISATION == "V") %>%
  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") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-HZ", "DS-CNT"),
         VALORISATION == "V") %>%
  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") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-C3", "A17-C2", "A17-C5"),
         VALORISATION == "V") %>%
  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") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-C3", "A17-C1", "A17-C2", "A17-C5", "A17-C4"),
         VALORISATION == "V") %>%
  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") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DSM-CNT", "DSN-CNT", "A17-PCAFAB"),
         VALORISATION == "V") %>%
  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") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-GZ", "A17-JZ", "A17-KZ"),
         VALORISATION == "V") %>%
  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") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DS-CNT", "DB-CNT", "A17-HZ"),
         VALORISATION == "V") %>%
  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") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DS-CNT", "DB-CNT", "A17-HZ"),
         VALORISATION == "V") %>%
  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") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-RU", "A17-MN", "A17-HZ"),
         VALORISATION == "V") %>%
  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") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-HZ"),
         VALORISATION == "V") %>%
  left_join(OPERATION,  by = "OPERATION") %>%
  quarter_to_date %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE/gdp, color = Operation)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-KZ"),
         VALORISATION == "V") %>%
  left_join(OPERATION,  by = "OPERATION") %>%
  quarter_to_date %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE/gdp, color = Operation)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6"),
         FREQ == "T",
         TIME_PERIOD == "2022-Q3") %>%
  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 170.132 132.233
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 163.409 127.731
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 149.877 124.541
A17-C5 A17-C5 - Fabrication d'autres produits industriels 68.869 54.808
DS-CNT Ensemble des services 66.091 56.528
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 65.463 55.899
A17-C4 A17-C4 - Fabrication de matériels de transport 33.443 30.124
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 26.577 24.541
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 25.378 23.930
A17-HZ A17-HZ - Transports et entreposage 21.830 14.455
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 15.878 13.199
A17-PCHTR Produits consommés hors du territoire de résidence 14.748 13.520
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 13.531 3.260
A17-KZ A17-KZ - Activités financières et d'assurance 8.282 7.268
A17-JZ A17-JZ - Information et communication 7.197 7.101
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 6.723 4.499
A17-C2 A17-C2 - Cokéfaction et raffinage 5.111 1.831
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 1.778 1.689
A17-RU A17-RU - Autres activités de services 0.998 0.970
A17-OQ A17-OQ - Administration publique, enseignement, santé humaine et action sociale 0.443 0.470
DSN-CNT Tertiaire principalement non marchand (OQ) 0.443 0.470
A17-FZ A17-FZ - Construction 0.185 0.159

Biens, Industrie, Industrie manuf.

Tous

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  left_join(VALORISATION,  by = "VALORISATION") %>%
  quarter_to_date %>%
  mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
  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) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
  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) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
  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) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  left_join(VALORISATION,  by = "VALORISATION") %>%
  quarter_to_date %>%
  mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
  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) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
  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) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
  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) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P7"),
         FREQ == "T",
         TIME_PERIOD == "2022-Q3") %>%
  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 216.836 156.271
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 212.120 152.226
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 174.141 142.033
A17-C5 A17-C5 - Fabrication d'autres produits industriels 77.885 62.145
DS-CNT Ensemble des services 54.464 49.681
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 53.633 48.940
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 38.790 35.814
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 37.979 8.822
A17-C4 A17-C4 - Fabrication de matériels de transport 29.489 27.193
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 22.469 21.224
A17-HZ A17-HZ - Transports et entreposage 14.475 11.823
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 14.407 11.864
A17-C2 A17-C2 - Cokéfaction et raffinage 13.570 5.366
A17-PCHTR Produits consommés hors du territoire de résidence 11.811 10.843
A17-JZ A17-JZ - Information et communication 8.605 8.396
A17-KZ A17-KZ - Activités financières et d'assurance 5.360 4.895
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 4.716 3.990
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 2.023 1.919
A17-RU A17-RU - Autres activités de services 0.702 0.678
A17-FZ A17-FZ - Construction 0.638 0.548
A17-OQ A17-OQ - Administration publique, enseignement, santé humaine et action sociale 0.193 0.193
DSN-CNT Tertiaire principalement non marchand (OQ) 0.193 0.193
A17-PCAFAB Correction CAF-FAB -6.749 -4.871

Biens, Industrie, Industrie manuf.

Tous

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  left_join(VALORISATION,  by = "VALORISATION") %>%
  quarter_to_date %>%
  mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
  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) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
  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) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
  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) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  left_join(VALORISATION,  by = "VALORISATION") %>%
  quarter_to_date %>%
  mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
  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) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
  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) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
  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) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  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-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         TIME_PERIOD == "2022-Q3",
         VALORISATION == "V") %>%
  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 170.132 216.836
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 163.409 212.120
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 149.877 174.141
A17-C5 A17-C5 - Fabrication d'autres produits industriels 68.869 77.885
DS-CNT Ensemble des services 66.091 54.464
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 65.463 53.633
A17-C4 A17-C4 - Fabrication de matériels de transport 33.443 29.489
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 26.577 38.790
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 25.378 22.469
A17-HZ A17-HZ - Transports et entreposage 21.830 14.475
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 15.878 14.407
A17-PCHTR Produits consommés hors du territoire de résidence 14.748 11.811
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 13.531 37.979
A17-KZ A17-KZ - Activités financières et d'assurance 8.282 5.360
A17-JZ A17-JZ - Information et communication 7.197 8.605
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 6.723 4.716
A17-C2 A17-C2 - Cokéfaction et raffinage 5.111 13.570
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 1.778 2.023
A17-RU A17-RU - Autres activités de services 0.998 0.702
A17-OQ A17-OQ - Administration publique, enseignement, santé humaine et action sociale 0.443 0.193
DSN-CNT Tertiaire principalement non marchand (OQ) 0.443 0.193
A17-FZ A17-FZ - Construction 0.185 0.638
A17-PCAFAB Correction CAF-FAB NA -6.749

TVA - D211

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("D211"),
         FREQ == "T",
         TIME_PERIOD %in% c("2023-Q1", "2023-Q2", "2022-Q1", "2022-Q2"),
         VALORISATION == "V") %>%
  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 24921 26091 26522 26705 4.3421%
Ensemble des biens 23294 23803 24772 24928 5.5269%
Industrie (DE, C1, C2, C3, C4, C5) 22816 23316 24266 24420 5.5363%
Industrie manufacturière (C1, C2, C3, C4, C5) 20292 20767 21363 21447 4.2646%
Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 16254 16911 17252 17488 4.7490%
A17-FZ - Construction 8267 8780 8868 8812 3.7133%
A17-C5 - Fabrication d'autres produits industriels 7818 7970 8135 8243 3.7370%
A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 5719 5801 5880 5948 2.6736%
A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 3988 4019 4226 4289 6.3444%
A17-C4 - Fabrication de matériels de transport 3460 3495 3878 3972 12.8684%
A17-JZ - Information et communication 3080 3116 3250 3269 5.2130%
A17-C2 - Cokéfaction et raffinage 2888 3148 2979 2803 -4.2081%
A17-IZ - Hébergement et restauration 2553 2888 2966 3055 10.6598%
A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 2524 2548 2903 2973 15.8517%
A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 2138 2136 2144 2140 0.2340%
A17-HZ - Transports et entreposage 1364 1402 1488 1530 9.1106%
A17-RU - Autres activités de services 1258 1314 1332 1353 4.3935%
A17-KZ - Activités financières et d'assurance 1160 1260 1236 1253 2.8512%
A17-LZ - Activités immobilières 794 816 800 786 -1.4907%
A17-AZ - Agriculture, sylviculture et pêche 478 487 507 508 5.1813%
A17-OQ - Administration publique, enseignement, santé humaine et action sociale 400 400 402 405 0.8750%
Tertiaire principalement non marchand (OQ) 400 400 402 405 0.8750%
A17-GZ - Commerce ; réparation d'automobiles et de motocycles 326 314 300 294 -7.1875%