Opérations sur biens et services

Data - INSEE

Auteur

François Geerolf

Info

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

Données sur la macroéconomie en France

source dataset Title .html .rData
bdf CFT Comptes Financiers Trimestriels 2025-08-28 2025-03-09
insee CNA-2014-CONSO-SI Dépenses de consommation finale par secteur institutionnel 2025-11-14 2025-11-13
insee CNA-2014-CSI Comptes des secteurs institutionnels 2025-11-14 2025-11-13
insee CNA-2014-FBCF-BRANCHE Formation brute de capital fixe (FBCF) par branche 2025-11-14 2025-11-13
insee CNA-2014-FBCF-SI Formation brute de capital fixe (FBCF) par secteur institutionnel 2025-11-14 2025-11-13
insee CNA-2014-RDB Revenu et pouvoir d’achat des ménages 2025-11-14 2025-11-13
insee CNA-2020-CONSO-MEN Consommation des ménages 2025-11-14 2025-09-30
insee CNA-2020-PIB Produit intérieur brut (PIB) et ses composantes 2025-11-14 2025-05-28
insee CNT-2014-CB Comptes des branches 2025-11-14 2025-11-13
insee CNT-2014-CSI Comptes de secteurs institutionnels 2025-11-14 2025-11-13
insee CNT-2014-OPERATIONS Opérations sur biens et services 2025-11-14 2025-11-13
insee CNT-2014-PIB-EQB-RF Équilibre du produit intérieur brut 2025-11-14 2025-11-13
insee CONSO-MENAGES-2020 Consommation des ménages en biens 2025-11-14 2025-11-13
insee ICA-2015-IND-CONS Indices de chiffre d'affaires dans l'industrie et la construction 2025-11-14 2025-11-13
insee conso-mensuelle Consommation de biens, données mensuelles 2025-11-14 2023-07-04
insee t_1101 1.101 – Le produit intérieur brut et ses composantes à prix courants (En milliards d'euros) 2025-11-14 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) 2025-11-14 2020-10-30
insee t_1105 1.105 – Produit intérieur brut - les trois approches à prix courants (En milliards d'euros) - t_1105 2025-11-14 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
2025-10-30 209370

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 14736
P2 P2 - Consommation intermédiaire (emploi intermédiaire) 14736
P3M P3M - Dépenses de consommation des ménages 14736
D211 D211 - Impôts de type 'Taxe à la Valeur Ajoutée' (TVA) 14429
P7 P7 - Importations de biens et services 14122
P6 P6 - Exportations de biens et services 13508
D214 D214 - Autres impôts sur les produits 12587
D319 D319 - Autres subventions sur les produits 10745
P31G P31G - Dépenses de consommation individualisables des APU 10438
MEMP MEMP - Marges commerciales 8596
P51 P51 - Formation brute de capital fixe 8596
P51S P51S - FBCF des entreprises non financières (y compris entreprises individuelles) 8596
TEMP TEMP - Marges de transport 8596
P51B P51B - FBCF des entreprises financières (y compris entreprises individuelles) 7982
D212 D212 - Impôts sur les importations autres que la taxe à la valeur ajoutée 7675
P51GG P51G - FBCF des administrations publiques 7368
P51P P51P - FBCF des ISBLSM 6754
P52 P52 - Variation de stocks 5830
P32G P32G - Dépenses de consommation collectives des APU 4912
P54 P54 - Stocks et acquisitions moins cession d'objets de valeur 4912
P3P P3P - Dépenses de consommation des ISBLSM 3070
P51M P51M - FBCF des ménages (hors entreprises individuelles) 3070
P73 P73 - Correction CAF / FAB 1842
P53 P53 - Acquisitions moins cession d'objets de valeur 1534

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 108985
L Volumes aux prix de l'année précédente chaînés 99161
SO Sans objet 1224

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 208146
CNT-OPERATIONS_SECTEURS_INST Opérations des secteurs institutionnels 1224

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 13508
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 13508
DB-CNT Ensemble des biens 11359
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 11359
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 11359
A17-C4 A17-C4 - Fabrication de matériels de transport 11052
A17-C5 A17-C5 - Fabrication d'autres produits industriels 10745
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 10438
A17-JZ A17-JZ - Information et communication 10438
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 10438
A17-FZ A17-FZ - Construction 9210
A17-RU A17-RU - Autres activités de services 9210
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 8596
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 7982
A17-C2 A17-C2 - Cokéfaction et raffinage 7368
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 7368
A17-HZ A17-HZ - Transports et entreposage 6754
A17-LZ A17-LZ - Activités immobilières 6140
A17-OQ A17-OQ - Administration publique, enseignement, santé humaine et action sociale 6140
DSN-CNT Tertiaire principalement non marchand (OQ) 6140
A17-KZ A17-KZ - Activités financières et d'assurance 4912
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 4298
A17-IZ A17-IZ - Hébergement et restauration 4298
D-CNT Ensemble des biens et services 2456
A17-PCHTR Produits consommés hors du territoire de résidence 1842
A17-PCAFAB Correction CAF-FAB 1228
SO Sans objet 1224

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.3
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.4
A17-C4 A17-C4 - Fabrication de matériels de transport 0.8 0.7 1.0 1.1
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.3
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.341965
Ensemble des biens 2022-07-01 -7.039892
Industrie (DE, C1, C2, C3, C4, C5) 2022-04-01 -6.410628

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 169.666 131.781
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 162.936 127.301
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 149.412 124.151
A17-C5 A17-C5 - Fabrication d'autres produits industriels 68.566 54.576
DS-CNT Ensemble des services 66.043 56.495
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 65.413 55.866
A17-C4 A17-C4 - Fabrication de matériels de transport 33.318 30.010
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 26.548 24.515
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 25.313 23.861
A17-HZ A17-HZ - Transports et entreposage 21.860 14.497
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 15.882 13.198
A17-PCHTR Produits consommés hors du territoire de résidence 14.425 13.222
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 13.524 3.231
A17-KZ A17-KZ - Activités financières et d'assurance 8.276 7.255
A17-JZ A17-JZ - Information et communication 7.192 7.094
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 6.729 4.478
A17-C2 A17-C2 - Cokéfaction et raffinage 5.098 1.821
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 1.774 1.686
A17-RU A17-RU - Autres activités de services 0.998 0.972
A17-OQ A17-OQ - Administration publique, enseignement, santé humaine et action sociale 0.445 0.470
DSN-CNT Tertiaire principalement non marchand (OQ) 0.445 0.470
A17-FZ A17-FZ - Construction 0.185 0.158

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.696 156.119
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 211.984 152.104
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 174.037 141.873
A17-C5 A17-C5 - Fabrication d'autres produits industriels 77.832 62.112
DS-CNT Ensemble des services 54.508 49.678
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 53.677 48.937
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 38.812 35.818
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 37.947 8.842
A17-C4 A17-C4 - Fabrication de matériels de transport 29.455 27.169
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 22.457 21.209
A17-HZ A17-HZ - Transports et entreposage 14.518 11.828
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 14.367 11.825
A17-C2 A17-C2 - Cokéfaction et raffinage 13.571 5.311
A17-PCHTR Produits consommés hors du territoire de résidence 11.815 10.852
A17-JZ A17-JZ - Information et communication 8.613 8.402
A17-KZ A17-KZ - Activités financières et d'assurance 5.366 4.896
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 4.712 3.958
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 2.021 1.917
A17-RU A17-RU - Autres activités de services 0.702 0.680
A17-FZ A17-FZ - Construction 0.639 0.549
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.745 -4.865

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 169.666 216.696
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 162.936 211.984
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 149.412 174.037
A17-C5 A17-C5 - Fabrication d'autres produits industriels 68.566 77.832
DS-CNT Ensemble des services 66.043 54.508
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 65.413 53.677
A17-C4 A17-C4 - Fabrication de matériels de transport 33.318 29.455
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 26.548 38.812
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 25.313 22.457
A17-HZ A17-HZ - Transports et entreposage 21.860 14.518
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 15.882 14.367
A17-PCHTR Produits consommés hors du territoire de résidence 14.425 11.815
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 13.524 37.947
A17-KZ A17-KZ - Activités financières et d'assurance 8.276 5.366
A17-JZ A17-JZ - Information et communication 7.192 8.613
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 6.729 4.712
A17-C2 A17-C2 - Cokéfaction et raffinage 5.098 13.571
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 1.774 2.021
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.445 0.193
DSN-CNT Tertiaire principalement non marchand (OQ) 0.445 0.193
A17-FZ A17-FZ - Construction 0.185 0.639
A17-PCAFAB Correction CAF-FAB NA -6.745

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 24885 26068 26577 26753 4.665%
Ensemble des biens 23293 23793 24721 24821 5.216%
Industrie (DE, C1, C2, C3, C4, C5) 22817 23308 24208 24304 5.175%
Industrie manufacturière (C1, C2, C3, C4, C5) 20286 20735 21416 21455 4.510%
Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 16263 16881 17269 17506 4.921%
A17-FZ - Construction 8221 8786 8909 8848 4.410%
A17-C5 - Fabrication d'autres produits industriels 7814 7928 8167 8222 4.110%
A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 5708 5792 5907 5981 3.374%
A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 3990 4025 4225 4299 6.351%
A17-C4 - Fabrication de matériels de transport 3454 3491 3896 3993 13.593%
A17-JZ - Information et communication 3073 3111 3264 3300 6.145%
A17-C2 - Cokéfaction et raffinage 2899 3156 2982 2806 -4.410%
A17-IZ - Hébergement et restauration 2573 2895 2927 3000 8.394%
A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 2531 2573 2792 2849 10.521%
A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 2129 2134 2146 2135 0.422%
A17-HZ - Transports et entreposage 1364 1403 1488 1529 9.035%
A17-RU - Autres activités de services 1260 1313 1350 1368 5.635%
A17-KZ - Activités financières et d'assurance 1166 1232 1249 1260 4.629%
A17-LZ - Activités immobilières 793 820 784 776 -3.286%
A17-AZ - Agriculture, sylviculture et pêche 477 485 514 517 7.173%
A17-OQ - Administration publique, enseignement, santé humaine et action sociale 401 402 398 399 -0.747%
Tertiaire principalement non marchand (OQ) 401 402 398 399 -0.747%
A17-GZ - Commerce ; réparation d'automobiles et de motocycles 326 314 300 292 -7.500%