Opérations sur biens et services

Data - INSEE

Author

François Geerolf

Info

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

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

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 14688
P2 P2 - Consommation intermédiaire (emploi intermédiaire) 14688
P3M P3M - Dépenses de consommation des ménages 14688
D211 D211 - Impôts de type 'Taxe à la Valeur Ajoutée' (TVA) 14382
P7 P7 - Importations de biens et services 14076
P6 P6 - Exportations de biens et services 13464
D214 D214 - Autres impôts sur les produits 12546
D319 D319 - Autres subventions sur les produits 10710
P31G P31G - Dépenses de consommation individualisables des APU 10404
MEMP MEMP - Marges commerciales 8568
P51 P51 - Formation brute de capital fixe 8568
P51S P51S - FBCF des entreprises non financières (y compris entreprises individuelles) 8568
TEMP TEMP - Marges de transport 8568
P51B P51B - FBCF des entreprises financières (y compris entreprises individuelles) 7956
D212 D212 - Impôts sur les importations autres que la taxe à la valeur ajoutée 7650
P51GG P51G - FBCF des administrations publiques 7344
P51P P51P - FBCF des ISBLSM 6732
P52 P52 - Variation de stocks 5814
P32G P32G - Dépenses de consommation collectives des APU 4896
P54 P54 - Stocks et acquisitions moins cession d'objets de valeur 4896
P3P P3P - Dépenses de consommation des ISBLSM 3060
P51M P51M - FBCF des ménages (hors entreprises individuelles) 3060
P73 P73 - Correction CAF / FAB 1836
P53 P53 - Acquisitions moins cession d'objets de valeur 1530

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 108630
L Volumes aux prix de l'année précédente chaînés 98838
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 207468
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 13464
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 13464
DB-CNT Ensemble des biens 11322
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 11322
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 11322
A17-C4 A17-C4 - Fabrication de matériels de transport 11016
A17-C5 A17-C5 - Fabrication d'autres produits industriels 10710
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 10404
A17-JZ A17-JZ - Information et communication 10404
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 10404
A17-FZ A17-FZ - Construction 9180
A17-RU A17-RU - Autres activités de services 9180
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 8568
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 7956
A17-C2 A17-C2 - Cokéfaction et raffinage 7344
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 7344
A17-HZ A17-HZ - Transports et entreposage 6732
A17-LZ A17-LZ - Activités immobilières 6120
A17-OQ A17-OQ - Administration publique, enseignement, santé humaine et action sociale 6120
DSN-CNT Tertiaire principalement non marchand (OQ) 6120
A17-KZ A17-KZ - Activités financières et d'assurance 4896
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 4284
A17-IZ A17-IZ - Hébergement et restauration 4284
D-CNT Ensemble des biens et services 2448
A17-PCHTR Produits consommés hors du territoire de résidence 1836
A17-PCAFAB Correction CAF-FAB 1224
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.288460
Ensemble des biens 2022-07-01 -6.985516
Industrie (DE, C1, C2, C3, C4, C5) 2022-04-01 -6.453400

Industrie Manuf

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT"),
         VALORISATION == "V") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(gdp_quarterly, by = "date") %>%
  mutate(value = (P6-P7)/gdp) %>%
  ggplot + geom_line(aes(x = date, y = value)) +
  theme_minimal() + xlab("") + ylab("Exportations Nettes, Industrie manufacturière (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2025, 10) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
                labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.75, 0.9),
        legend.title = element_blank()) + 
  geom_hline(yintercept = 0, linetype = "dashed")

Biens, Agriculture, Industrie, Industrie Manuf

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-AZ", "A17-C1"),
         VALORISATION == "V") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, .5),
                labels = percent_format(accuracy = .1)) +
  
  theme(legend.position = c(0.55, 0.2),
        legend.title = element_blank()) + 
  geom_hline(yintercept = 0, linetype = "dashed")

Biens, Agriculture, Industrie, Industrie Manuf

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-AZ", "DIM-CNT", "DI-CNT", "DB-CNT"),
         VALORISATION == "V") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
                labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.75, 0.9),
        legend.title = element_blank()) + 
  geom_hline(yintercept = 0, linetype = "dashed")

Industrie Manufacturière + Energie, Industrie Manufacturière

1995-

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT"),
         VALORISATION == "V") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  filter(date >= as.Date("1995-01-01")) %>%
  arrange(date) %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1940, 2025, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
                labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.65, 0.9),
        legend.title = element_blank()) + 
  geom_hline(yintercept = 0, linetype = "dashed")

1954-1962

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT"),
         VALORISATION == "V") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  arrange(date) %>%
  filter(date >= as.Date("1954-01-01"),
         date <= as.Date("1962-01-01")) %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2025, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
                labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.65, 0.9),
        legend.title = element_blank()) + 
  geom_hline(yintercept = 0, linetype = "dashed")

2017T2-

% of PIB

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT"),
         VALORISATION == "V") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  arrange(date) %>%
  filter(date >= as.Date("2017-04-01")) %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2025, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, .5),
                labels = percent_format(accuracy = .1)) +
  
  theme(legend.position = c(0.65, 0.9),
        legend.title = element_blank()) + 
  geom_hline(yintercept = 0, linetype = "dashed")

Valeur (courant)

Trimestriel
Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT"),
         VALORISATION == "L") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  arrange(date) %>%
  #filter(date >= as.Date("2017-04-01")) %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/1000, color = Cna_produit)) +
  theme_minimal() + xlab("") + ylab("Exportations Nettes (Mds€ / trimestre)") +
  scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-100, 500, 5)) +
  
  theme(legend.position = c(0.25, 0.2),
        legend.title = element_blank()) + 
  geom_hline(yintercept = 0, linetype = "dashed")

Annuel
Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT"),
         VALORISATION == "L") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  arrange(date) %>%
  #filter(date >= as.Date("2017-04-01")) %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  ggplot + geom_line(aes(x = date, y = 4*(P6-P7)/1000, color = Cna_produit)) +
  theme_minimal() + xlab("") + ylab("Exportations Nettes (Mds€ / an)") +
  scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-200, 500, 20),
                     labels = dollar_format(pre = "", su = " Mds€")) +
  
  theme(legend.position = c(0.25, 0.2),
        legend.title = element_blank()) + 
  geom_hline(yintercept = 0, linetype = "dashed")

Biens, Services

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DS-CNT", "DB-CNT"),
         VALORISATION == "V") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
                labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.85, 0.9),
        legend.title = element_blank()) + 
  geom_hline(yintercept = 0, linetype = "dashed")

Biens, Services

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DSM-CNT", "DB-CNT"),
         VALORISATION == "V") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(gdp_quarterly, by = "date") %>%
  mutate(obsValue = (P6-P7)/gdp) %>%
  ggplot + geom_line(aes(x = date, y = obsValue, color = Cna_produit)) +
  theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
                labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.85, 0.9),
        legend.title = element_blank()) + 
  geom_hline(yintercept = 0, linetype = "dashed")

Biens, Services, B&S

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DS-CNT", "DB-CNT", "D-CNT"),
         VALORISATION == "V") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
                labels = percent_format(accuracy = 1)) +
  
  theme(legend.position = c(0.85, 0.9),
        legend.title = element_blank()) + 
  geom_hline(yintercept = 0, linetype = "dashed")

Ensemble des services, A17-HZ - Transports et entreposage

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-HZ", "DS-CNT"),
         VALORISATION == "V") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, .2),
                labels = percent_format(accuracy = .1)) +
  
  theme(legend.position = c(0.75, 0.9),
        legend.title = element_blank()) + 
  geom_hline(yintercept = 0, linetype = "dashed")

Industrie catégorie

C2, C3, C5

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-C3", "A17-C2", "A17-C5"),
         VALORISATION == "V") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, .5),
                labels = percent_format(accuracy = .1),
                limits = c(-0.02, 0.05)) +
  
  theme(legend.position = c(0.45, 0.9),
        legend.title = element_blank()) + 
  geom_hline(yintercept = 0, linetype = "dashed")

C1, C2, C3, C4, C5

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-C3", "A17-C1", "A17-C2", "A17-C5", "A17-C4"),
         VALORISATION == "V") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  theme_minimal() + xlab("") + ylab("% du PIB") +
  scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, .5),
                labels = percent_format(accuracy = .1),
                limits = c(-0.02, 0.05)) +
  
  theme(legend.position = c(0.45, 0.9),
        legend.title = element_blank()) + 
  geom_hline(yintercept = 0, linetype = "dashed")

Décomposition des Services

Services Marchands, non marchands

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DSM-CNT", "DSN-CNT", "A17-PCAFAB"),
         VALORISATION == "V") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, .1),
                labels = percent_format(accuracy = .1)) +
  
  theme(legend.position = c(0.35, 0.9),
        legend.title = element_blank()) + 
  geom_hline(yintercept = 0, linetype = "dashed")

Commerce, Information-Communication, Finance-Assurance

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-GZ", "A17-JZ", "A17-KZ"),
         VALORISATION == "V") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, .1),
                labels = percent_format(accuracy = .1)) +
  
  theme(legend.position = c(0.35, 0.9),
        legend.title = element_blank()) + 
  geom_hline(yintercept = 0, linetype = "dashed")

Commerce, Information-Communication, Finance-Assurance

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DS-CNT", "DB-CNT", "A17-HZ"),
         VALORISATION == "V") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, .5),
                labels = percent_format(accuracy = .1)) +
  
  theme(legend.position = c(0.5, 0.9),
        legend.title = element_blank()) + 
  geom_hline(yintercept = 0, linetype = "dashed")

Commerce, Information-Communication, Finance-Assurance

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DS-CNT", "DB-CNT", "A17-HZ"),
         VALORISATION == "V") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, .5),
                labels = percent_format(accuracy = .1)) +
  
  theme(legend.position = c(0.5, 0.9),
        legend.title = element_blank()) + 
  geom_hline(yintercept = 0, linetype = "dashed")

Transports et entreposage, Activités scientifiques

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-RU", "A17-MN", "A17-HZ"),
         VALORISATION == "V") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  quarter_to_date %>%
  select(Cna_produit, OPERATION, date, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = (P6-P7)/gdp, color = Cna_produit)) +
  theme_minimal() + xlab("") + ylab("Exportations Nettes (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, .5),
                labels = percent_format(accuracy = .1)) +
  
  theme(legend.position = c(0.5, 0.9),
        legend.title = element_blank()) + 
  geom_hline(yintercept = 0, linetype = "dashed")

Exportations, Importations

Transports et Entreposage

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-HZ"),
         VALORISATION == "V") %>%
  left_join(OPERATION,  by = "OPERATION") %>%
  quarter_to_date %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE/gdp, color = Operation)) +
  theme_minimal() + xlab("") + ylab("Transports et entreposage (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, .2),
                labels = percent_format(accuracy = .1)) +
  
  theme(legend.position = c(0.5, 0.9),
        legend.title = element_blank())

Activités financi!res et assurances

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-KZ"),
         VALORISATION == "V") %>%
  left_join(OPERATION,  by = "OPERATION") %>%
  quarter_to_date %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE/gdp, color = Operation)) +
  theme_minimal() + xlab("") + ylab("Activités financi!res et assurances (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, .2),
                labels = percent_format(accuracy = .1)) +
  
  theme(legend.position = c(0.8, 0.9),
        legend.title = element_blank())

Exportations

Table - Douanes

Code 
i_g("bib/douanes/3T2022/tableaux-exportations.png")

Table

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6"),
         FREQ == "T",
         TIME_PERIOD == "2022-Q3") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  left_join(VALORISATION,  by = "VALORISATION") %>%
  mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
  select(CNA_PRODUIT, Cna_produit, Valorisation, OBS_VALUE) %>%
  spread(Valorisation, OBS_VALUE) %>%
  arrange(-`Valeurs aux prix courants`) %>%
  print_table_conditional()
CNA_PRODUIT Cna_produit Valeurs aux prix courants Volumes aux prix de l'année précédente chaînés
DB-CNT Ensemble des biens 170.034 132.028
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 163.287 127.545
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 149.676 124.371
A17-C5 A17-C5 - Fabrication d'autres produits industriels 68.619 54.623
DS-CNT Ensemble des services 65.964 56.431
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 65.334 55.802
A17-C4 A17-C4 - Fabrication de matériels de transport 33.568 30.234
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 26.500 24.475
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 25.267 23.819
A17-HZ A17-HZ - Transports et entreposage 21.819 14.470
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 15.857 13.175
A17-PCHTR Produits consommés hors du territoire de résidence 14.411 13.209
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 13.611 3.248
A17-KZ A17-KZ - Activités financières et d'assurance 8.282 7.260
A17-JZ A17-JZ - Information et communication 7.197 7.099
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 6.747 4.480
A17-C2 A17-C2 - Cokéfaction et raffinage 5.132 1.833
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 1.771 1.683
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.705 156.161
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 211.982 152.113
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 174.143 141.984
A17-C5 A17-C5 - Fabrication d'autres produits industriels 77.878 62.162
DS-CNT Ensemble des services 54.513 49.682
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 53.681 48.940
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 38.792 35.801
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 37.838 8.783
A17-C4 A17-C4 - Fabrication de matériels de transport 29.534 27.243
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 22.456 21.209
A17-HZ A17-HZ - Transports et entreposage 14.527 11.834
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 14.368 11.826
A17-C2 A17-C2 - Cokéfaction et raffinage 13.571 5.314
A17-PCHTR Produits consommés hors du territoire de résidence 11.811 10.848
A17-JZ A17-JZ - Information et communication 8.612 8.402
A17-KZ A17-KZ - Activités financières et d'assurance 5.365 4.895
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 4.723 3.994
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 2.019 1.915
A17-RU A17-RU - Autres activités de services 0.702 0.680
A17-FZ A17-FZ - Construction 0.640 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.863

Biens, Industrie, Industrie manuf.

Tous

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  left_join(VALORISATION,  by = "VALORISATION") %>%
  quarter_to_date %>%
  mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
  scale_x_date(breaks = seq(1940, 2025, 10) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_linetype_manual(values = c("dashed", "solid")) +
  scale_y_continuous(breaks = seq(-100, 500, 10),
                     labels = dollar_format(pre = "", su = " Mds€")) +
  theme(legend.position = c(0.25, 0.75),
        legend.title = element_blank())

1995-

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  left_join(VALORISATION,  by = "VALORISATION") %>%
  quarter_to_date %>%
  filter(date >= as.Date("1995-01-01")) %>%
  mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
  scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_linetype_manual(values = c("dashed", "solid")) +
  scale_y_continuous(breaks = seq(-100, 500, 10),
                     labels = dollar_format(pre = "", su = " Mds€")) +
  theme(legend.position = c(0.25, 0.8),
        legend.title = element_blank())

2000-

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  left_join(VALORISATION,  by = "VALORISATION") %>%
  quarter_to_date %>%
  filter(date >= as.Date("2000-01-01")) %>%
  mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
  scale_x_date(breaks = seq(1940, 2025, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_linetype_manual(values = c("dashed", "solid")) +
  scale_y_continuous(breaks = seq(-100, 500, 10),
                     labels = dollar_format(pre = "", su = " Mds€")) +
  theme(legend.position = c(0.25, 0.8),
        legend.title = element_blank())

2017-

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  left_join(VALORISATION,  by = "VALORISATION") %>%
  quarter_to_date %>%
  filter(date >= as.Date("2017-07-01")) %>%
  mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
  scale_x_date(breaks = seq(1940, 2025, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_linetype_manual(values = c("dashed", "solid")) +
  scale_y_continuous(breaks = seq(-100, 500, 10),
                     labels = dollar_format(pre = "", su = " Mds€")) +
  theme(legend.position = c(0.3, 0.8),
        legend.title = element_blank())

C1, C2, C3, C4, C5

Tous

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  left_join(VALORISATION,  by = "VALORISATION") %>%
  quarter_to_date %>%
  mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
  scale_x_date(breaks = seq(1940, 2025, 10) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_linetype_manual(values = c("dashed", "solid")) +
  scale_y_continuous(breaks = seq(-100, 500, 10),
                     labels = dollar_format(pre = "", su = " Mds€")) +
  theme(legend.position = c(0.47, 0.75),
        legend.title = element_blank())

1995-

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  left_join(VALORISATION,  by = "VALORISATION") %>%
  quarter_to_date %>%
  filter(date >= as.Date("1995-01-01")) %>%
  mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
  scale_x_date(breaks = seq(1940, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_linetype_manual(values = c("dashed", "solid")) +
  scale_y_continuous(breaks = seq(-100, 500, 10),
                     labels = dollar_format(pre = "", su = " Mds€")) +
  theme(legend.position = c(0.47, 0.75),
        legend.title = element_blank())

2000-

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  left_join(VALORISATION,  by = "VALORISATION") %>%
  quarter_to_date %>%
  filter(date >= as.Date("2000-01-01")) %>%
  mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
  scale_x_date(breaks = seq(1940, 2025, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_linetype_manual(values = c("dashed", "solid")) +
  scale_y_continuous(breaks = seq(-100, 500, 10),
                     labels = dollar_format(pre = "", su = " Mds€")) +
  theme(legend.position = c(0.47, 0.75),
        legend.title = element_blank())

2017-

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5")) %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  left_join(VALORISATION,  by = "VALORISATION") %>%
  quarter_to_date %>%
  filter(date >= as.Date("2017-07-01")) %>%
  mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit, linetype = Valorisation)) +
  theme_minimal() + xlab("") + ylab("Exportations, Mds€, valeurs ou volumes") +
  scale_x_date(breaks = seq(1940, 2025, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_linetype_manual(values = c("dashed", "solid")) +
  scale_y_continuous(breaks = seq(-100, 500, 10),
                     labels = dollar_format(pre = "", su = " Mds€")) +
  theme(legend.position = c(0.47, 0.75),
        legend.title = element_blank())

Exportations, Importations

Table

Code 
`CNT-2020-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         TIME_PERIOD == "2022-Q3",
         VALORISATION == "V") %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  left_join(OPERATION,  by = "OPERATION") %>%
  mutate(OBS_VALUE = OBS_VALUE / 1000) %>%
  select(CNA_PRODUIT, Cna_produit, Operation, OBS_VALUE) %>%
  spread(Operation, OBS_VALUE) %>%
  arrange(-`P6 - Exportations de biens et services`) %>%
  print_table_conditional()
CNA_PRODUIT Cna_produit P6 - Exportations de biens et services P7 - Importations de biens et services
DB-CNT Ensemble des biens 170.034 216.705
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 163.287 211.982
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 149.676 174.143
A17-C5 A17-C5 - Fabrication d'autres produits industriels 68.619 77.878
DS-CNT Ensemble des services 65.964 54.513
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 65.334 53.681
A17-C4 A17-C4 - Fabrication de matériels de transport 33.568 29.534
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 26.500 38.792
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 25.267 22.456
A17-HZ A17-HZ - Transports et entreposage 21.819 14.527
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 15.857 14.368
A17-PCHTR Produits consommés hors du territoire de résidence 14.411 11.811
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 13.611 37.838
A17-KZ A17-KZ - Activités financières et d'assurance 8.282 5.365
A17-JZ A17-JZ - Information et communication 7.197 8.612
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 6.747 4.723
A17-C2 A17-C2 - Cokéfaction et raffinage 5.132 13.571
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 1.771 2.019
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.640
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 24888 26070 26586 26758 4.682%
Ensemble des biens 23296 23796 24725 24826 5.222%
Industrie (DE, C1, C2, C3, C4, C5) 22820 23310 24211 24308 5.179%
Industrie manufacturière (C1, C2, C3, C4, C5) 20284 20738 21415 21461 4.520%
Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 16264 16883 17273 17509 4.933%
A17-FZ - Construction 8223 8786 8915 8851 4.451%
A17-C5 - Fabrication d'autres produits industriels 7814 7929 8166 8223 4.103%
A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 5708 5793 5908 5981 3.374%
A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 3989 4026 4225 4299 6.351%
A17-C4 - Fabrication de matériels de transport 3454 3492 3896 3995 13.605%
A17-JZ - Information et communication 3074 3112 3266 3301 6.159%
A17-C2 - Cokéfaction et raffinage 2899 3158 2983 2809 -4.375%
A17-IZ - Hébergement et restauration 2574 2896 2928 3003 8.428%
A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 2536 2572 2796 2846 10.454%
A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 2128 2134 2145 2135 0.422%
A17-HZ - Transports et entreposage 1363 1404 1488 1530 9.071%
A17-RU - Autres activités de services 1259 1312 1350 1366 5.640%
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 518 7.277%
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%