Opérations sur biens et services

Data - Insee

Author

François Geerolf

Info

source dataset .html .RData
insee CNT-2014-OPERATIONS 2024-10-29 2024-11-05
insee CNT-2014-PIB-EQB-RF 2024-10-29 2024-11-05

Données sur la macroéconomie en France

source dataset .html .RData
bdf CFT 2024-09-30 2024-07-01
insee CNA-2014-CONSO-MEN 2024-11-05 2024-11-05
insee CNA-2014-CONSO-SI 2024-11-05 2024-11-05
insee CNA-2014-CSI 2024-11-05 2024-11-05
insee CNA-2014-FBCF-BRANCHE 2024-11-05 2024-11-05
insee CNA-2014-FBCF-SI 2024-06-07 2024-11-05
insee CNA-2014-PIB 2024-11-05 2024-11-05
insee CNA-2014-RDB 2024-11-05 2024-11-05
insee CNT-2014-CB 2024-11-05 2024-11-05
insee CNT-2014-CSI 2024-11-05 2024-11-05
insee CNT-2014-OPERATIONS 2024-10-29 2024-11-05
insee CNT-2014-PIB-EQB-RF 2024-10-29 2024-11-05
insee CONSO-MENAGES-2014 2024-10-29 2024-11-05
insee conso-mensuelle 2024-06-07 2023-07-04
insee ICA-2015-IND-CONS 2024-10-29 2024-11-05
insee t_1101 2024-10-29 2022-01-02
insee t_1102 2024-10-29 2020-10-30
insee t_1105 2024-10-29 2020-10-30

LAST_UPDATE

Code 
`CNT-2014-OPERATIONS` %>%
  group_by(LAST_UPDATE) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(LAST_UPDATE)) %>%
  print_table_conditional()
LAST_UPDATE Nobs
2024-04-30 204676

Last

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

OPERATION

Code 
`CNT-2014-OPERATIONS` %>%
  left_join(OPERATION,  by = "OPERATION") %>%
  group_by(OPERATION, Operation) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
OPERATION Operation Nobs
P1 P1 - Production 14448
P2 P2 - Consommation intermédiaire (emploi intermédiaire) 14448
P3M P3M - Dépenses de consommation des ménages 14448
D211 D211 - Impôts de type 'Taxe à la Valeur Ajoutée' (TVA) 14147
P7 P7 - Importations de biens et services 13244
P6 P6 - Exportations de biens et services 12642
D214 D214 - Autres impôts sur les produits 12341
D319 D319 - Autres subventions sur les produits 11739
P31G P31G - Dépenses de consommation individualisables des APU 10836
MEMP MEMP - Marges commerciales 8428
P51 P51 - Formation brute de capital fixe 8428
P51S P51S - FBCF des entreprises non financières (y compris entreprises individuelles) 8428
TEMP TEMP - Marges de transport 8428
P51B P51B - FBCF des entreprises financières (y compris entreprises individuelles) 7826
D212 D212 - Impôts sur les importations autres que la taxe à la valeur ajoutée 7525
P51GG P51G - FBCF des administrations publiques 7224
P51P P51P - FBCF des ISBLSM 6622
P52 P52 - Variation de stocks 5716
P54 P54 - Stocks et acquisitions moins cession d'objets de valeur 4816
P32G P32G - Dépenses de consommation collectives des APU 3612
P3P P3P - Dépenses de consommation des ISBLSM 3010
P51M P51M - FBCF des ménages (hors entreprises individuelles) 3010
P73 P73 - Correction CAF / FAB 1806
P53 P53 - Acquisitions moins cession d'objets de valeur 1504

VALORISATION

Code 
`CNT-2014-OPERATIONS` %>%
  left_join(VALORISATION,  by = "VALORISATION") %>%
  group_by(VALORISATION, Valorisation) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
VALORISATION Valorisation Nobs
V Valeurs aux prix courants 106554
L Volumes aux prix de l'année précédente chaînés 96922
SO Sans objet 1200

INDICATEUR

Code 
`CNT-2014-OPERATIONS` %>%
  left_join(INDICATEUR,  by = "INDICATEUR") %>%
  group_by(INDICATEUR, Indicateur) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
INDICATEUR Indicateur Nobs
CNT-OPERATION_BIENS_SERVICES Opérations sur biens et services 203476
CNT-OPERATIONS_SECTEURS_INST Opérations des secteurs institutionnels 1200

CNA_PRODUIT

Code 
`CNT-2014-OPERATIONS` %>%
  left_join(CNA_PRODUIT,  by = "CNA_PRODUIT") %>%
  group_by(CNA_PRODUIT, Cna_produit) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
CNA_PRODUIT Cna_produit Nobs
DS-CNT Ensemble des services 13244
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 13244
A17-C5 A17-C5 - Fabrication d'autres produits industriels 11137
DB-CNT Ensemble des biens 11137
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 11137
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 11137
A17-C4 A17-C4 - Fabrication de matériels de transport 10836
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 10234
A17-JZ A17-JZ - Information et communication 10234
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 10234
A17-RU A17-RU - Autres activités de services 9632
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 8428
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 7826
A17-FZ A17-FZ - Construction 7826
A17-C2 A17-C2 - Cokéfaction et raffinage 7224
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 7224
A17-HZ A17-HZ - Transports et entreposage 6020
A17-LZ A17-LZ - Activités immobilières 6020
A17-OQ A17-OQ - Administration publique, enseignement, santé humaine et action sociale 6020
DSN-CNT Tertiaire principalement non marchand (OQ) 6020
A17-KZ A17-KZ - Activités financières et d'assurance 4816
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 4214
A17-IZ A17-IZ - Hébergement et restauration 4214
D-CNT Ensemble des biens et services 2408
A17-PCHTR Produits consommés hors du territoire de résidence 1806
A17-PCAFAB Correction CAF-FAB 1204
SO Sans objet 1200

TIME_PERIOD

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

Consommation

1970-

Code 
`CNT-2014-OPERATIONS` %>%
  filter(OPERATION %in% c("P3M"),
         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-2014-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.3 0.3
A17-C2 A17-C2 - Cokéfaction et raffinage -0.2 -0.1 -0.2 -0.8
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 0.3 0.0 -0.9 -1.3
A17-C4 A17-C4 - Fabrication de matériels de transport 0.8 0.7 0.9 0.8
A17-C5 A17-C5 - Fabrication d'autres produits industriels 2.6 0.6 -0.9 -0.5
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution -1.6 -1.4 -1.3 -0.8
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 0.1 -0.1 -0.1 -0.1
A17-HZ A17-HZ - Transports et entreposage 1.4 -0.1 -0.2 -0.5
A17-JZ A17-JZ - Information et communication 0.0 -0.1 -0.2 -0.1
A17-KZ A17-KZ - Activités financières et d'assurance 0.1 0.1 0.2 0.3
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 0.1 0.0 0.2 0.1
A17-OQ A17-OQ - Administration publique, enseignement, santé humaine et action sociale 0.0 0.0 0.0 0.0
A17-PCAFAB Correction CAF-FAB NA NA NA NA
A17-PCHTR Produits consommés hors du territoire de résidence 0.0 0.0 0.4 0.4
A17-RU A17-RU - Autres activités de services 0.0 0.0 0.1 0.0
DB-CNT Ensemble des biens -1.4 -0.5 -1.5 -2.3
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 2.0 -0.3 -2.0 -2.3
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 3.6 1.1 -0.7 -1.6
DS-CNT Ensemble des services 1.8 -0.1 -0.1 -0.3
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 1.8 -0.1 -0.1 -0.3
DSN-CNT Tertiaire principalement non marchand (OQ) 0.0 0.0 0.0 0.0

Industrie Manufacturière + Energie, Industrie Manufacturière

Tous

Code 
`CNT-2014-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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.349884
Ensemble des biens 2022-07-01 -7.061350
Industrie (DE, C1, C2, C3, C4, C5) 2022-04-01 -6.935217

Industrie Manuf

Code 
`CNT-2014-OPERATIONS` %>%
  filter(OPERATION %in% c("P6", "P7"),
         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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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 161.455 127.674
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 154.863 123.140
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 145.847 120.815
A17-C5 A17-C5 - Fabrication d'autres produits industriels 68.803 56.478
DS-CNT Ensemble des services 60.482 46.898
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 60.213 46.660
A17-C4 A17-C4 - Fabrication de matériels de transport 30.496 24.997
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 26.378 23.701
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 23.401 20.818
A17-HZ A17-HZ - Transports et entreposage 20.394 10.178
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 15.874 12.629
A17-PCHTR Produits consommés hors du territoire de résidence 15.585 13.562
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 9.016 2.732
A17-JZ A17-JZ - Information et communication 7.272 7.409
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 6.592 4.510
A17-KZ A17-KZ - Activités financières et d'assurance 6.134 5.646
A17-C2 A17-C2 - Cokéfaction et raffinage 4.297 2.749
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 1.904 1.838
A17-RU A17-RU - Autres activités de services 1.107 1.018
A17-OQ A17-OQ - Administration publique, enseignement, santé humaine et action sociale 0.269 0.234
DSN-CNT Tertiaire principalement non marchand (OQ) 0.269 0.234

Biens, Industrie, Industrie manuf.

Tous

Code 
`CNT-2014-OPERATIONS` %>%
  filter(OPERATION %in% c("P6"),
         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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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 208.566 159.657
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 203.899 156.136
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 169.028 141.186
A17-C5 A17-C5 - Fabrication d'autres produits industriels 78.424 62.376
DS-CNT Ensemble des services 55.891 47.716
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 55.707 47.436
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 38.517 36.495
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 34.870 14.158
A17-C4 A17-C4 - Fabrication de matériels de transport 27.568 23.908
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 23.524 20.918
A17-HZ A17-HZ - Transports et entreposage 17.326 12.320
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 14.411 11.275
A17-C2 A17-C2 - Cokéfaction et raffinage 10.108 6.583
A17-PCHTR Produits consommés hors du territoire de résidence 9.497 8.263
A17-JZ A17-JZ - Information et communication 8.538 8.369
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 4.667 3.546
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 2.768 2.670
A17-KZ A17-KZ - Activités financières et d'assurance 2.605 2.443
A17-RU A17-RU - Autres activités de services 0.946 0.857
A17-OQ A17-OQ - Administration publique, enseignement, santé humaine et action sociale 0.184 0.278
DSN-CNT Tertiaire principalement non marchand (OQ) 0.184 0.278
A17-PCAFAB Correction CAF-FAB -6.653 -3.433

Biens, Industrie, Industrie manuf.

Tous

Code 
`CNT-2014-OPERATIONS` %>%
  filter(OPERATION %in% c("P7"),
         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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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-2014-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 161.455 208.566
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 154.863 203.899
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 145.847 169.028
A17-C5 A17-C5 - Fabrication d'autres produits industriels 68.803 78.424
DS-CNT Ensemble des services 60.482 55.891
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 60.213 55.707
A17-C4 A17-C4 - Fabrication de matériels de transport 30.496 27.568
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 26.378 38.517
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 23.401 23.524
A17-HZ A17-HZ - Transports et entreposage 20.394 17.326
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 15.874 14.411
A17-PCHTR Produits consommés hors du territoire de résidence 15.585 9.497
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 9.016 34.870
A17-JZ A17-JZ - Information et communication 7.272 8.538
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 6.592 4.667
A17-KZ A17-KZ - Activités financières et d'assurance 6.134 2.605
A17-C2 A17-C2 - Cokéfaction et raffinage 4.297 10.108
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 1.904 2.768
A17-RU A17-RU - Autres activités de services 1.107 0.946
A17-OQ A17-OQ - Administration publique, enseignement, santé humaine et action sociale 0.269 0.184
DSN-CNT Tertiaire principalement non marchand (OQ) 0.269 0.184
A17-PCAFAB Correction CAF-FAB NA -6.653

TVA - D211

Code 
`CNT-2014-OPERATIONS` %>%
  filter(OPERATION %in% c("D211"),
         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 25004 25503 25818 26057 2.71%
Ensemble des biens 23824 24411 25300 25308 4.92%
Industrie (DE, C1, C2, C3, C4, C5) 23253 23833 24674 24681 4.82%
Industrie manufacturière (C1, C2, C3, C4, C5) 20511 21005 21667 21625 4.28%
Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 16827 17169 17230 17469 2.07%
A17-C5 - Fabrication d'autres produits industriels 7815 7924 8106 8148 3.27%
A17-FZ - Construction 7554 7714 7955 7949 4.17%
A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 5645 5695 5711 5756 1.12%
A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 4257 4348 4552 4591 6.25%
A17-C4 - Fabrication de matériels de transport 3458 3537 3907 3970 12.61%
A17-C2 - Cokéfaction et raffinage 2973 3162 3031 2866 -3.88%
A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 2742 2827 3007 3056 8.87%
A17-IZ - Hébergement et restauration 2650 2927 2949 3046 7.50%
A17-JZ - Information et communication 2718 2734 2817 2847 3.89%
A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 2008 2034 2070 2050 1.93%
A17-HZ - Transports et entreposage 1434 1441 1478 1512 4.00%
A17-RU - Autres activités de services 1296 1338 1394 1419 6.80%
A17-KZ - Activités financières et d'assurance 1499 1428 1282 1294 -11.99%
A17-LZ - Activités immobilières 839 856 809 800 -5.07%
A17-GZ - Commerce ; réparation d'automobiles et de motocycles 746 751 789 795 5.81%
A17-OQ - Administration publique, enseignement, santé humaine et action sociale 623 620 633 639 2.33%
Tertiaire principalement non marchand (OQ) 623 620 633 639 2.33%
A17-AZ - Agriculture, sylviculture et pêche 571 578 627 627 9.14%