Opérations sur biens et services - CNT-2020-OPERATIONS

Name: Opérations sur biens et services
Creator: François Geerolf
License: https://www.etalab.gouv.fr/licence-ouverte-open-licence/

Données - INSEE

Auteur

François Geerolf

Last observation: Q2 2026 (N = 682)

First observation: Q1 1949 (N = 682)

Last data update: 03 sept. 2026, 23:38

Last compile: 04 sept. 2026, 01:51

Structure

Données sur la macroéconomie en France

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

Last

Code

`CNT-2020-OPERATIONS` |>
  filter(TIME_PERIOD == max(TIME_PERIOD)) |>
  select(TIME_PERIOD, TITLE_FR, OBS_VALUE) |>
  arrange(TITLE_FR) |>
  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_short = c("Agriculture",
                                   "Industrie agro")),  by = "CNA_PRODUIT") |>
  mutate(Cna_produit_short = ordered(Cna_produit_short, levels = c("Agriculture",
                                                       "Industrie agro"))) |>
  quarter_to_date() |>
  select(Cna_produit_short, 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_short)) +
  theme_minimal() + xlab("") + ylab("Consommation des ménages (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2100, 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")) |>
  
  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	1950-01-01	1970-01-01	1990-01-01	2020-01-01
A17-AZ	-3.3	-0.2	0.5	0.1
A17-C1	-0.1	-0.1	0.4	0.2
A17-C2	-0.2	-0.1	-0.3	-0.8
A17-C3	0.4	0.0	-0.9	-1.3
A17-C4	0.8	0.7	1.0	1.0
A17-C5	2.7	0.6	-0.9	-0.7
A17-DE	-1.6	-1.4	-1.3	-0.6
A17-FZ	0.0	0.0	0.0	0.0
A17-GZ	0.1	0.0	0.0	0.0
A17-HZ	1.8	0.2	0.0	-0.1
A17-JZ	0.1	-0.1	-0.2	-0.2
A17-KZ	0.1	0.1	0.0	0.4
A17-MN	0.2	0.0	0.2	0.4
A17-OQ	0.0	0.0	0.0	0.0
A17-PCAFAB	NA	NA	NA	NA
A17-PCHTR	0.0	0.0	0.4	0.2
A17-RU	0.0	0.0	0.1	0.0
DB-CNT	-1.3	-0.5	-1.5	-2.1
DI-CNT	2.0	-0.3	-2.0	-2.2
DIM-CNT	3.6	1.1	-0.7	-1.5
DS-CNT	2.3	0.3	0.1	0.4
DSM-CNT	2.3	0.3	0.1	0.4
DSN-CNT	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_short = c("Balance commerciale Manuf.",
                                   "Balance commerciale Manuf. + Energie")),
            by = "CNA_PRODUIT") |>
  mutate(Cna_produit_short = ordered(Cna_produit_short, levels = c("Balance commerciale Manuf.",
                                                       "Balance commerciale Manuf. + Energie"))) |>
  quarter_to_date() |>
  select(Cna_produit_short, 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_short)) +
  theme_minimal() + xlab("") + ylab("Balance Commerciale (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2100, 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_short = c("Industrie Manufacturière",
                                   "Industrie Manufacturière + Energie")),  by = "CNA_PRODUIT") |>
  mutate(Cna_produit_short = ordered(Cna_produit_short, levels = c("Industrie Manufacturière",
                                                       "Industrie Manufacturière + Energie"))) |>
  quarter_to_date() |>
  select(Cna_produit_short, 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_short)) +
  theme_minimal() + xlab("") + ylab("Balance Commerciale (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2100, 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_short = c("Industrie Manufacturière",
                                   "Industrie Manufacturière + Energie")),  by = "CNA_PRODUIT") |>
  mutate(Cna_produit_short = ordered(Cna_produit_short, levels = c("Industrie Manufacturière",
                                                       "Industrie Manufacturière + Energie"))) |>
  quarter_to_date() |>
  select(Cna_produit_short, 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_short)) +
  theme_minimal() + xlab("") + ylab("Balance Commerciale (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2100, 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_short = c("Industrie Manufacturière",
                                   "Industrie (Industrie Manuf. + Energie)",
                                   "Biens (Industrie + Agriculture)")),  by = "CNA_PRODUIT") |>
  mutate(Cna_produit_short = ordered(Cna_produit_short, levels = c("Industrie Manufacturière",
                                                       "Industrie (Industrie Manuf. + Energie)",
                                                       "Biens (Industrie + Agriculture)"))) |>
  quarter_to_date() |>
  select(Cna_produit_short, 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_short)) +
  theme_minimal() + xlab("") + ylab("Balance Commerciale (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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
DI-CNT	2022-07-01	-7.288335
DB-CNT	2022-07-01	-6.988310
DI-CNT	2022-04-01	-6.337828

Industrie Manuf

Code

`CNT-2020-OPERATIONS` |>
  filter(OPERATION %in% c("P6", "P7"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT"),
         VALORISATION == "V") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  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, 2100, 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") |>
  
  
  mutate(OBS_VALUE = OBS_VALUE / 1000) |>
  select(CNA_PRODUIT, Valorisation, OBS_VALUE) |>
  spread(Valorisation, OBS_VALUE) |>
  arrange(-`Valeurs aux prix courants`) |>
  print_table_conditional()

CNA_PRODUIT	Valeurs aux prix courants	Volumes aux prix de l'année précédente chaînés
DB-CNT	170.294	132.389
DI-CNT	163.575	127.888
DIM-CNT	150.034	124.659
A17-C5	68.961	54.882
DS-CNT	66.096	56.523
DSM-CNT	65.468	55.894
A17-C4	33.498	30.168
A17-C3	26.585	24.548
A17-MN	25.399	23.947
A17-HZ	21.816	14.438
A17-C1	15.881	13.208
A17-PCHTR	14.747	13.519
A17-DE	13.542	3.285
A17-KZ	8.284	7.270
A17-JZ	7.196	7.100
A17-AZ	6.719	4.498
A17-C2	5.109	1.822
A17-GZ	1.777	1.688
A17-RU	0.996	0.969
A17-OQ	0.443	0.470
DSN-CNT	0.443	0.470
A17-FZ	0.185	0.159

Biens, Industrie, Industrie manuf.

Tous

Code

`CNT-2020-OPERATIONS` |>
  filter(OPERATION %in% c("P6"),
         FREQ == "T",
         CNA_PRODUIT %in% c("DIM-CNT", "DI-CNT", "DB-CNT")) |>
  
  
  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, 2100, 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")) |>
  
  
  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, 2100, 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")) |>
  
  
  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, 2100, 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")) |>
  
  
  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, 2100, 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")) |>
  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, 2100, 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")) |>
  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, 2100, 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")) |>
  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, 2100, 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")) |>
  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, 2100, 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") |>
  mutate(OBS_VALUE = OBS_VALUE / 1000) |>
  select(CNA_PRODUIT, Valorisation, OBS_VALUE) |>
  spread(Valorisation, OBS_VALUE) |>
  arrange(-`Valeurs aux prix courants`) |>
  print_table_conditional()

CNA_PRODUIT	Valeurs aux prix courants	Volumes aux prix de l'année précédente chaînés
DB-CNT	216.972	156.304
DI-CNT	212.257	152.261
DIM-CNT	174.241	142.092
A17-C5	77.986	62.243
DS-CNT	54.524	49.735
DSM-CNT	53.694	48.994
A17-C3	38.800	35.826
A17-DE	38.016	8.808
A17-C4	29.474	27.168
A17-MN	22.505	21.256
A17-HZ	14.482	11.830
A17-C1	14.410	11.864
A17-C2	13.571	5.342
A17-PCHTR	11.815	10.847
A17-JZ	8.619	8.409
A17-KZ	5.364	4.899
A17-AZ	4.715	3.989
A17-GZ	2.022	1.918
A17-RU	0.702	0.679
A17-FZ	0.638	0.547
A17-OQ	0.193	0.193
DSN-CNT	0.193	0.193
A17-PCAFAB	-6.753	-4.874

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")) |>
  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, 2100, 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")) |>
  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, 2100, 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")) |>
  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, 2100, 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")) |>
  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, 2100, 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")) |>
  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, 2100, 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")) |>
  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, 2100, 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")) |>
  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, 2100, 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")) |>
  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, 2100, 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") |>
  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.294	216.972
DI-CNT	Industrie (DE, C1, C2, C3, C4, C5)	163.575	212.257
DIM-CNT	Industrie manufacturière (C1, C2, C3, C4, C5)	150.034	174.241
A17-C5	A17-C5 - Fabrication d'autres produits industriels	68.961	77.986
DS-CNT	Ensemble des services	66.096	54.524
DSM-CNT	Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU)	65.468	53.694
A17-C4	A17-C4 - Fabrication de matériels de transport	33.498	29.474
A17-C3	A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines	26.585	38.800
A17-MN	A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien	25.399	22.505
A17-HZ	A17-HZ - Transports et entreposage	21.816	14.482
A17-C1	A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac	15.881	14.410
A17-PCHTR	Produits consommés hors du territoire de résidence	14.747	11.815
A17-DE	A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution	13.542	38.016
A17-KZ	A17-KZ - Activités financières et d'assurance	8.284	5.364
A17-JZ	A17-JZ - Information et communication	7.196	8.619
A17-AZ	A17-AZ - Agriculture, sylviculture et pêche	6.719	4.715
A17-C2	A17-C2 - Cokéfaction et raffinage	5.109	13.571
A17-GZ	A17-GZ - Commerce ; réparation d'automobiles et de motocycles	1.777	2.022
A17-RU	A17-RU - Autres activités de services	0.996	0.702
A17-OQ	A17-OQ - Administration publique, enseignement, santé humaine et action sociale	0.443	0.193
DSN-CNT	Tertiaire principalement non marchand (OQ)	0.443	0.193
A17-FZ	A17-FZ - Construction	0.185	0.638
A17-PCAFAB	Correction CAF-FAB	NA	-6.753

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") |>
  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	24920	26090	26523	26700	4.3384%
Ensemble des biens	23289	23805	24766	24929	5.5230%
Industrie (DE, C1, C2, C3, C4, C5)	22811	23319	24259	24421	5.5279%
Industrie manufacturière (C1, C2, C3, C4, C5)	20286	20769	21353	21450	4.2577%
Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU)	16253	16910	17250	17487	4.7463%
A17-FZ - Construction	8267	8780	8870	8808	3.7015%
A17-C5 - Fabrication d'autres produits industriels	7817	7971	8132	8247	3.7433%
A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien	5719	5801	5879	5948	2.6649%
A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac	3987	4019	4227	4290	6.3827%
A17-C4 - Fabrication de matériels de transport	3459	3497	3876	3974	12.8522%
A17-JZ - Information et communication	3080	3116	3249	3270	5.2130%
A17-C2 - Cokéfaction et raffinage	2887	3148	2977	2805	-4.1922%
A17-IZ - Hébergement et restauration	2553	2888	2967	3054	10.6598%
A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution	2525	2550	2906	2972	15.8227%
A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines	2136	2133	2141	2135	0.1640%
A17-HZ - Transports et entreposage	1364	1402	1488	1530	9.1106%
A17-RU - Autres activités de services	1258	1312	1332	1351	4.3969%
A17-KZ - Activités financières et d'assurance	1160	1260	1236	1253	2.8512%
A17-LZ - Activités immobilières	794	816	800	786	-1.4907%
A17-AZ - Agriculture, sylviculture et pêche	478	487	507	508	5.1813%
A17-OQ - Administration publique, enseignement, santé humaine et action sociale	400	400	402	405	0.8750%
Tertiaire principalement non marchand (OQ)	400	400	402	405	0.8750%
A17-GZ - Commerce ; réparation d'automobiles et de motocycles	326	314	300	294	-7.1875%