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 2026-02-16 2026-02-15
insee CNT-2020-PIB-EQB-RF Équilibre du produit intérieur brut 2026-02-16 2026-02-15

Données sur la macroéconomie en France

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

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 14784
P2 P2 - Consommation intermédiaire (emploi intermédiaire) 14784
P3M P3M - Dépenses de consommation des ménages 14784
D211 D211 - Impôts de type 'Taxe à la Valeur Ajoutée' (TVA) 14476
P7 P7 - Importations de biens et services 14168
P6 P6 - Exportations de biens et services 13552
D214 D214 - Autres impôts sur les produits 12628
D319 D319 - Autres subventions sur les produits 10780
P31G P31G - Dépenses de consommation individualisables des APU 10472
MEMP MEMP - Marges commerciales 8624
P51 P51 - Formation brute de capital fixe 8624
P51S P51S - FBCF des entreprises non financières (y compris entreprises individuelles) 8624
TEMP TEMP - Marges de transport 8624
P51B P51B - FBCF des entreprises financières (y compris entreprises individuelles) 8008
D212 D212 - Impôts sur les importations autres que la taxe à la valeur ajoutée 7700
P51GG P51G - FBCF des administrations publiques 7392
P51P P51P - FBCF des ISBLSM 6776
P52 P52 - Variation de stocks 5849
P32G P32G - Dépenses de consommation collectives des APU 4928
P54 P54 - Stocks et acquisitions moins cession d'objets de valeur 4928
P3P P3P - Dépenses de consommation des ISBLSM 3080
P51M P51M - FBCF des ménages (hors entreprises individuelles) 3080
P73 P73 - Correction CAF / FAB 1848
P53 P53 - Acquisitions moins cession d'objets de valeur 1539

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

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

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

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.4
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.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.6
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.299244
Ensemble des biens 2022-07-01 -6.999088
Industrie (DE, C1, C2, C3, C4, C5) 2022-04-01 -6.348119

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.853 131.968
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 163.134 127.490
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 149.615 124.302
A17-C5 A17-C5 - Fabrication d'autres produits industriels 68.601 54.592
DS-CNT Ensemble des services 66.070 56.527
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 65.441 55.898
A17-C4 A17-C4 - Fabrication de matériels de transport 33.445 30.120
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 26.583 24.544
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 25.356 23.905
A17-HZ A17-HZ - Transports et entreposage 21.830 14.479
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 15.874 13.196
A17-PCHTR Produits consommés hors du territoire de résidence 14.423 13.220
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 13.519 3.256
A17-KZ A17-KZ - Activités financières et d'assurance 8.279 7.258
A17-JZ A17-JZ - Information et communication 7.201 7.104
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 6.719 4.476
A17-C2 A17-C2 - Cokéfaction et raffinage 5.112 1.823
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 1.776 1.687
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.606 155.970
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 211.892 151.950
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 173.947 141.768
A17-C5 A17-C5 - Fabrication d'autres produits industriels 77.796 62.059
DS-CNT Ensemble des services 54.502 49.676
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 53.671 48.935
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 38.803 35.814
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 37.945 8.810
A17-C4 A17-C4 - Fabrication de matériels de transport 29.435 27.148
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 22.466 21.218
A17-HZ A17-HZ - Transports et entreposage 14.512 11.824
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 14.342 11.802
A17-C2 A17-C2 - Cokéfaction et raffinage 13.571 5.307
A17-PCHTR Produits consommés hors du territoire de résidence 11.810 10.848
A17-JZ A17-JZ - Information et communication 8.614 8.404
A17-KZ A17-KZ - Activités financières et d'assurance 5.356 4.888
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 4.714 3.963
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 2.022 1.917
A17-RU A17-RU - Autres activités de services 0.702 0.680
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.742 -4.864

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.853 216.606
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 163.134 211.892
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 149.615 173.947
A17-C5 A17-C5 - Fabrication d'autres produits industriels 68.601 77.796
DS-CNT Ensemble des services 66.070 54.502
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 65.441 53.671
A17-C4 A17-C4 - Fabrication de matériels de transport 33.445 29.435
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 26.583 38.803
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 25.356 22.466
A17-HZ A17-HZ - Transports et entreposage 21.830 14.512
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 15.874 14.342
A17-PCHTR Produits consommés hors du territoire de résidence 14.423 11.810
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 13.519 37.945
A17-KZ A17-KZ - Activités financières et d'assurance 8.279 5.356
A17-JZ A17-JZ - Information et communication 7.201 8.614
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 6.719 4.714
A17-C2 A17-C2 - Cokéfaction et raffinage 5.112 13.571
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 1.776 2.022
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.638
A17-PCAFAB Correction CAF-FAB NA -6.742

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 24886 26065 26579 26747 4.661%
Ensemble des biens 23300 23799 24713 24814 5.155%
Industrie (DE, C1, C2, C3, C4, C5) 22823 23314 24199 24296 5.111%
Industrie manufacturière (C1, C2, C3, C4, C5) 20288 20738 21401 21443 4.431%
Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 16266 16874 17275 17496 4.922%
A17-FZ - Construction 8219 8790 8907 8853 4.415%
A17-C5 - Fabrication d'autres produits industriels 7814 7929 8166 8222 4.097%
A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 5708 5792 5906 5980 3.357%
A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 3990 4027 4225 4299 6.324%
A17-C4 - Fabrication de matériels de transport 3457 3494 3883 3984 13.178%
A17-JZ - Information et communication 3073 3111 3265 3300 6.161%
A17-C2 - Cokéfaction et raffinage 2898 3154 2980 2803 -4.445%
A17-IZ - Hébergement et restauration 2573 2893 2927 2997 8.379%
A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 2535 2576 2798 2853 10.565%
A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 2129 2135 2146 2136 0.422%
A17-HZ - Transports et entreposage 1364 1403 1488 1528 8.999%
A17-RU - Autres activités de services 1259 1312 1350 1365 5.601%
A17-KZ - Activités financières et d'assurance 1166 1232 1249 1260 4.629%
A17-LZ - Activités immobilières 796 817 791 773 -3.038%
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 299 292 -7.656%