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

Structure

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.296909
DB-CNT	2022-07-01	-6.996333
DI-CNT	2022-04-01	-6.342700

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.152	132.313
DI-CNT	163.429	127.808
DIM-CNT	149.923	124.582
A17-C5	68.838	54.787
DS-CNT	66.076	56.511
DSM-CNT	65.448	55.882
A17-C4	33.519	30.186
A17-C3	26.569	24.536
A17-MN	25.415	23.962
A17-HZ	21.787	14.422
A17-C1	15.879	13.206
A17-PCHTR	14.748	13.521
A17-DE	13.506	3.282
A17-KZ	8.280	7.266
A17-JZ	7.192	7.096
A17-AZ	6.723	4.503
A17-C2	5.117	1.833
A17-GZ	1.778	1.689
A17-RU	0.996	0.968
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.891	156.223
DI-CNT	212.176	152.179
DIM-CNT	174.120	142.004
A17-C5	77.881	62.166
DS-CNT	54.497	49.708
DSM-CNT	53.667	48.968
A17-C3	38.795	35.820
A17-DE	38.056	8.811
A17-C4	29.458	27.153
A17-MN	22.483	21.235
A17-HZ	14.489	11.834
A17-C1	14.414	11.867
A17-C2	13.572	5.349
A17-PCHTR	11.817	10.849
A17-JZ	8.613	8.403
A17-KZ	5.358	4.894
A17-AZ	4.715	3.989
A17-GZ	2.023	1.919
A17-RU	0.702	0.678
A17-FZ	0.638	0.548
A17-OQ	0.193	0.193
DSN-CNT	0.193	0.193
A17-PCAFAB	-6.751	-4.872

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.152	216.891
DI-CNT	Industrie (DE, C1, C2, C3, C4, C5)	163.429	212.176
DIM-CNT	Industrie manufacturière (C1, C2, C3, C4, C5)	149.923	174.120
A17-C5	A17-C5 - Fabrication d'autres produits industriels	68.838	77.881
DS-CNT	Ensemble des services	66.076	54.497
DSM-CNT	Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU)	65.448	53.667
A17-C4	A17-C4 - Fabrication de matériels de transport	33.519	29.458
A17-C3	A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines	26.569	38.795
A17-MN	A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien	25.415	22.483
A17-HZ	A17-HZ - Transports et entreposage	21.787	14.489
A17-C1	A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac	15.879	14.414
A17-PCHTR	Produits consommés hors du territoire de résidence	14.748	11.817
A17-DE	A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution	13.506	38.056
A17-KZ	A17-KZ - Activités financières et d'assurance	8.280	5.358
A17-JZ	A17-JZ - Information et communication	7.192	8.613
A17-AZ	A17-AZ - Agriculture, sylviculture et pêche	6.723	4.715
A17-C2	A17-C2 - Cokéfaction et raffinage	5.117	13.572
A17-GZ	A17-GZ - Commerce ; réparation d'automobiles et de motocycles	1.778	2.023
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.751

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	24919	26091	26521	26703	4.3403%
Ensemble des biens	23288	23805	24767	24930	5.5295%
Industrie (DE, C1, C2, C3, C4, C5)	22810	23319	24260	24422	5.5345%
Industrie manufacturière (C1, C2, C3, C4, C5)	20285	20767	21353	21448	4.2605%
Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU)	16252	16911	17250	17488	4.7493%
A17-FZ - Construction	8267	8780	8869	8810	3.7074%
A17-C5 - Fabrication d'autres produits industriels	7815	7968	8130	8244	3.7445%
A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien	5718	5800	5878	5945	2.6480%
A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac	3987	4019	4226	4289	6.3577%
A17-C4 - Fabrication de matériels de transport	3459	3498	3877	3975	12.8647%
A17-JZ - Information et communication	3079	3117	3249	3271	5.2292%
A17-C2 - Cokéfaction et raffinage	2888	3148	2978	2803	-4.2247%
A17-IZ - Hébergement et restauration	2553	2889	2967	3055	10.6578%
A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution	2524	2551	2907	2974	15.8818%
A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines	2136	2135	2143	2137	0.2107%
A17-HZ - Transports et entreposage	1364	1402	1487	1531	9.1106%
A17-RU - Autres activités de services	1259	1313	1333	1353	4.4323%
A17-KZ - Activités financières et d'assurance	1160	1260	1236	1254	2.8926%
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%

Related Data

Indicateurs Macroéconomiques France

source	dataset	Title	Updated
bdf	BPM6	Balance des paiements - 6ème manuel - BPM6	2026-10-06
bdf	CFT	Comptes Financiers Trimestriels - CFT	2026-08-10
eurostat	lfsq_ergaed	Employment rates by sex, age and educational attainment level (%) - lfsq_ergaed	2026-09-11
eurostat	une_rt_m	Unemployment by sex and age – monthly data - une_rt_m	2026-10-30
insee	CHOMAGE-TRIM-NATIONAL	Chômage, taux de chômage par sexe et âge (sens BIT) (1975-) - CHOMAGE-TRIM-NATIONAL	2026-10-30
insee	CNA-2014-FBCF-SI	Formation brute de capital fixe (FBCF) par secteur institutionnel - CNA-2014-FBCF-SI	2026-10-30
insee	CNT-2020-CB	Comptes des branches - CNT-2020-CB	2026-10-30
insee	CNT-2020-CSI	Comptes de secteurs institutionnels - CNT-2020-CSI	2026-10-30
insee	CNT-2020-OPERATIONS	Opérations sur biens et services - CNT-2020-OPERATIONS	2026-10-30
insee	CNT-2020-PIB-EQB-RF	Équilibre du produit intérieur brut - CNT-2020-PIB-EQB-RF	2026-10-30
insee	CONSO-MENAGES-2014	Consommation des ménages en biens - CONSO-MENAGES-2014	2026-10-30
insee	CONSO-MENAGES-2020	Consommation des ménages en biens - CONSO-MENAGES-2020	2026-10-30
insee	DEMANDES-EMPLOIS-NATIONALES	Demandeurs d’emploi inscrits à Pôle Emploi - DEMANDES-EMPLOIS-NATIONALES	2026-10-30
insee	EMPLOI-SALARIE-TRIM-NATIONAL	Estimations d’emploi salarié par secteur d’activité - EMPLOI-SALARIE-TRIM-NATIONAL	2026-10-30
insee	ICA-2015-IND-CONS	Indices de chiffre d’affaires dans l’industrie et la construction - ICA-2015-IND-CONS	2026-10-30
insee	conso-mensuelle	Consommation de biens, données mensuelles - conso-mensuelle	2026-08-02
insee	econ-gen-solde-ech-ext-2	Solde des échanges extérieurs et principales composantes - econ-gen-solde-ech-ext-2	2026-08-02
insee	t_conso_vol	Dépenses de consommation des ménages - volumes aux prix de l’année précédente chaînés (données CVS-CJO), base 2014 - t_conso_vol	2026-09-03
insee	t_recapAgent_val	Récapitulatif des séries des comptes d’agents - t_recapAgent_val	2026-09-03
insee	t_zonexp_val	Exportations - Par zone - valeurs aux prix courants - t_zonexp_val	2026-09-03
wdi	NY.GDP.PCAP.PP.CD	GDP per capita, PPP (current international D) - NY.GDP.PCAP.PP.CD	2026-10-31
wdi	NY.GDP.PCAP.PP.KD	GDP per capita, PPP (constant 2011 international D) - NY.GDP.PCAP.PP.KD	2026-10-31