Opérations sur biens et services
Données - INSEE
Info
Last observation: Trimestrielle: 2026-Q2 (N = 678)
First observation: Trimestrielle: 1949-Q1 (N = 682)
Number of observations: 211 416
Last data update: 14 aoû 2026, 20:49. Last compile: 15 aoû 2026, 03:17
Structure
Données sur la macroéconomie en France
| source | dataset | Title | Updated |
|---|---|---|---|
| bdf | CFT | Comptes Financiers Trimestriels | 2026-08-10 |
| insee | CNA-2014-CONSO-SI | Dépenses de consommation finale par secteur institutionnel | 2026-08-13 |
| insee | CNA-2014-CSI | Comptes des secteurs institutionnels | 2026-08-13 |
| insee | CNA-2014-FBCF-BRANCHE | Formation brute de capital fixe (FBCF) par branche | 2026-08-13 |
| insee | CNA-2014-FBCF-SI | Formation brute de capital fixe (FBCF) par secteur institutionnel | 2026-08-13 |
| insee | CNA-2014-RDB | Revenu et pouvoir d’achat des ménages | 2026-08-13 |
| insee | CNA-2020-CONSO-MEN | Consommation des ménages | 2026-08-13 |
| insee | CNA-2020-PIB | Produit intérieur brut (PIB) et ses composantes | 2026-08-13 |
| insee | CNT-2014-CB | Comptes des branches | 2026-08-13 |
| insee | CNT-2014-CSI | Comptes de secteurs institutionnels | 2026-08-13 |
| insee | CNT-2014-OPERATIONS | Opérations sur biens et services | 2026-08-13 |
| insee | CNT-2014-PIB-EQB-RF | Équilibre du produit intérieur brut | 2026-08-13 |
| insee | CONSO-MENAGES-2020 | Consommation des ménages en biens | 2026-08-13 |
| insee | ICA-2015-IND-CONS | Indices de chiffre d'affaires dans l'industrie et la construction | 2026-08-13 |
| insee | conso-mensuelle | Consommation de biens, données mensuelles | 2026-08-02 |
| insee | t_1101 | 1.101 – Le produit intérieur brut et ses composantes à prix courants (En milliards d'euros) | 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) | 2026-08-02 |
| insee | t_1105 | 1.105 – Produit intérieur brut - les trois approches à prix courants (En milliards d'euros) - t_1105 | 2026-08-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.303482 |
| DB-CNT | 2022-07-01 | -7.003450 |
| DI-CNT | 2022-04-01 | -6.337618 |
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.210 | 132.319 |
| DI-CNT | 163.491 | 127.818 |
| DIM-CNT | 149.946 | 124.586 |
| A17-C5 | 68.902 | 54.831 |
| DS-CNT | 66.109 | 56.533 |
| DSM-CNT | 65.481 | 55.904 |
| A17-C4 | 33.474 | 30.145 |
| A17-C3 | 26.582 | 24.545 |
| A17-MN | 25.403 | 23.953 |
| A17-HZ | 21.822 | 14.441 |
| A17-C1 | 15.878 | 13.204 |
| A17-PCHTR | 14.749 | 13.522 |
| A17-DE | 13.545 | 3.286 |
| A17-KZ | 8.285 | 7.270 |
| A17-JZ | 7.197 | 7.101 |
| A17-AZ | 6.720 | 4.499 |
| A17-C2 | 5.108 | 1.828 |
| 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.988 | 156.313 |
| DI-CNT | 212.273 | 152.269 |
| DIM-CNT | 174.236 | 142.100 |
| A17-C5 | 77.966 | 62.225 |
| DS-CNT | 54.522 | 49.729 |
| DSM-CNT | 53.691 | 48.988 |
| A17-C3 | 38.780 | 35.807 |
| A17-DE | 38.036 | 8.809 |
| A17-C4 | 29.510 | 27.201 |
| A17-MN | 22.506 | 21.258 |
| A17-HZ | 14.484 | 11.826 |
| A17-C1 | 14.411 | 11.866 |
| A17-C2 | 13.570 | 5.351 |
| A17-PCHTR | 11.815 | 10.848 |
| A17-JZ | 8.614 | 8.405 |
| 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.548 |
| A17-OQ | 0.193 | 0.193 |
| DSN-CNT | 0.193 | 0.193 |
| A17-PCAFAB | -6.754 | -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.210 | 216.988 |
| DI-CNT | Industrie (DE, C1, C2, C3, C4, C5) | 163.491 | 212.273 |
| DIM-CNT | Industrie manufacturière (C1, C2, C3, C4, C5) | 149.946 | 174.236 |
| A17-C5 | A17-C5 - Fabrication d'autres produits industriels | 68.902 | 77.966 |
| DS-CNT | Ensemble des services | 66.109 | 54.522 |
| DSM-CNT | Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) | 65.481 | 53.691 |
| A17-C4 | A17-C4 - Fabrication de matériels de transport | 33.474 | 29.510 |
| A17-C3 | A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines | 26.582 | 38.780 |
| A17-MN | A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien | 25.403 | 22.506 |
| A17-HZ | A17-HZ - Transports et entreposage | 21.822 | 14.484 |
| A17-C1 | A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac | 15.878 | 14.411 |
| A17-PCHTR | Produits consommés hors du territoire de résidence | 14.749 | 11.815 |
| A17-DE | A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution | 13.545 | 38.036 |
| A17-KZ | A17-KZ - Activités financières et d'assurance | 8.285 | 5.364 |
| A17-JZ | A17-JZ - Information et communication | 7.197 | 8.614 |
| A17-AZ | A17-AZ - Agriculture, sylviculture et pêche | 6.720 | 4.715 |
| A17-C2 | A17-C2 - Cokéfaction et raffinage | 5.108 | 13.570 |
| 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.754 |
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 | 26093 | 26521 | 26706 | 4.3421% |
| Ensemble des biens | 23293 | 23804 | 24769 | 24930 | 5.5248% |
| Industrie (DE, C1, C2, C3, C4, C5) | 22815 | 23318 | 24262 | 24423 | 5.5318% |
| Industrie manufacturière (C1, C2, C3, C4, C5) | 20290 | 20770 | 21357 | 21453 | 4.2621% |
| Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) | 16254 | 16910 | 17252 | 17488 | 4.7521% |
| A17-FZ - Construction | 8265 | 8782 | 8867 | 8813 | 3.7133% |
| A17-C5 - Fabrication d'autres produits industriels | 7817 | 7971 | 8132 | 8248 | 3.7497% |
| A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien | 5719 | 5802 | 5879 | 5949 | 2.6647% |
| A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac | 3988 | 4018 | 4226 | 4288 | 6.3452% |
| A17-C4 - Fabrication de matériels de transport | 3460 | 3495 | 3878 | 3972 | 12.8684% |
| A17-JZ - Information et communication | 3081 | 3116 | 3250 | 3269 | 5.1961% |
| A17-C2 - Cokéfaction et raffinage | 2887 | 3149 | 2977 | 2806 | -4.1915% |
| 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 | 2525 | 2548 | 2905 | 2970 | 15.8092% |
| A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines | 2138 | 2136 | 2144 | 2139 | 0.2106% |
| A17-HZ - Transports et entreposage | 1364 | 1402 | 1488 | 1531 | 9.1468% |
| 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 | 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% |