Chelem - chel202016718_TT

Données - CEPII

Auteur

François Geerolf

Last data update: 01 août 2026, 21:29

Last compile: 14 sept. 2026, 23:59

Bilateral Trade Surpluses

World

Code 
chel202016718_TT |>
  filter(date == as.Date("2018-01-01"),
         NX > 50000) |>
  left_join(gdp_germany_usd, by = "date") |>
  left_join(pays_extract, by = "iso3c") |>
  left_join(pays_extract |>
              rename(iso3c_partner = iso3c,
                     Iso3c_partner = Iso3c), by = "iso3c_partner") |>
  select(1, 2, iso3c_partner, Iso3c_partner, NX, GDP) |>
  arrange(-NX) %>%
  mutate(NX_GDP = round(100*NX/GDP, 1)  |> paste0(" %"),
         NX = round(NX/1000) %>% paste0("$ ", ., " Bn")) |>
  select(-GDP) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

To Germany

Code 
chel202016718_TT |>
  filter(iso3c == "DEU",
         date == as.Date("2018-01-01")) |>
  left_join(gdp_germany_usd, by = "date") |>
  left_join(pays_extract |>
              rename(iso3c_partner = iso3c,
                     Iso3c_partner = Iso3c), by = "iso3c_partner") |>
  select(1, 2, iso3c_partner, Iso3c_partner, NX, GDP) |>
  arrange(-NX) %>%
  mutate(NX_GDP = round(100*NX/GDP, 1)  |> paste0(" %"),
         NX = round(NX/1000) %>% paste0("$ ", ., " Bn")) |>
  select(-GDP) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Germany - Bilateral Trade Surpluses ($Bn)

Without World

Code 
chel202016718_TT |>
  filter(iso3c == "DEU",
         iso3c_partner %in% c("EUR", "CHN", "USA", "UE")) |>
  left_join(pays_extract |>
              rename(iso3c_partner = iso3c,
                     Iso3c_partner = Iso3c), by = "iso3c_partner") |>
  ggplot() + xlab("") + ylab("Net Current Account") +
  geom_line(aes(x = date, y = NX/1000, color = Iso3c_partner, linetype = Iso3c_partner)) + 
  theme_minimal() + scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.8)) +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-20000, 400000, 50),
                     labels = dollar_format(accuracy = 1, suffix = " Bn", prefix = "$ "))

With World

Code 
chel202016718_TT |>
  filter(iso3c == "DEU",
         iso3c_partner %in% c("EUR", "CHN", "USA", "UE", "WLD")) |>
  left_join(pays_extract |>
              rename(iso3c_partner = iso3c,
                     Iso3c_partner = Iso3c), by = "iso3c_partner") |>
  ggplot() + xlab("") + ylab("Net Current Account") +
  geom_line(aes(x = date, y = NX/1000, color = Iso3c_partner)) + 
  theme_minimal() + scale_color_manual(values = viridis(6)[1:5]) +
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.8)) +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-20000, 400000, 50),
                     labels = dollar_format(accuracy = 1, suffix = " Bn", prefix = "$ "))

Without World (% of GDP)

Code 
chel202016718_TT |>
  filter(iso3c == "DEU",
         iso3c_partner %in% c("EUR", "CHN", "USA", "UE")) |>
  left_join(gdp_germany_usd, by = "date") |>
  left_join(pays_extract |>
              rename(iso3c_partner = iso3c,
                     Iso3c_partner = Iso3c), by = "iso3c_partner") |>
  ggplot() + xlab("") + ylab("Net Current Account") +
  geom_line(aes(x = date, y = NX/GDP, color = Iso3c_partner, linetype = Iso3c_partner)) + 
  theme_minimal() + scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.8)) +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 10, 1),
                     labels = percent_format(accuracy = 1))

With World (% of GDP)

Code 
chel202016718_TT |>
  filter(iso3c == "DEU",
         iso3c_partner %in% c("EUR", "CHN", "USA", "UE", "WLD")) |>
  left_join(gdp_germany_usd, by = "date") |>
  left_join(pays_extract |>
              rename(iso3c_partner = iso3c,
                     Iso3c_partner = Iso3c), by = "iso3c_partner") |>
  ggplot() + xlab("") + ylab("Net Current Account") +
  geom_line(aes(x = date, y = NX/GDP, color = Iso3c_partner)) + 
  theme_minimal() + scale_color_manual(values = viridis(6)[1:5]) +
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.8)) +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 10, 1),
                     labels = percent_format(accuracy = 1))

France - Bilateral Trade Surpluses (% of GDP)

Without World

Code 
chel202016718_TT |>
  filter(iso3c == "FRA",
         iso3c_partner %in% c("DEU", "CHN", "USA", "GBR")) |>
  left_join(gdp_france_usd, by = "date") |>
  left_join(iso3c |>
              rename(iso3c_partner = iso3c,
                     Iso3c_partner = Iso3c), by = "iso3c_partner") |>
  ggplot() + xlab("") + ylab("Excédents Bilatéraux - France (% du PIB)") +
  geom_line(aes(x = date, y = NX/GDP, color = Iso3c_partner, linetype = Iso3c_partner)) + 
  theme_minimal() + scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.title = element_blank(),
        legend.position = c(0.35, 0.05),
        legend.direction = "horizontal") +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 10, 0.2),
                     labels = percent_format(accuracy = .1))

Without World

Code 
chel202016718_TT |>
  filter(iso3c == "FRA",
         iso3c_partner %in% c("DEU", "CHN", "USA", "GBR")) |>
  left_join(gdp_france_usd, by = "date") |>
  left_join(iso3c |>
              rename(iso3c_partner = iso3c,
                     Iso3c_partner = Iso3c), by = "iso3c_partner") |>
  filter(date >= as.Date("1990-01-01")) |>
  ggplot() + xlab("") + ylab("Excédents Bilatéraux - France (% du PIB)") +
  geom_line(aes(x = date, y = NX/GDP, color = Iso3c_partner, linetype = Iso3c_partner)) + 
  theme_minimal() + scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.2)) +
  scale_x_date(breaks = seq(1950, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 10, 0.2),
                     labels = percent_format(accuracy = .1))

France-Germany

Code 
chel202016718_TT |>
  filter(iso3c == "FRA",
         iso3c_partner %in% c("DEU")) |>
  left_join(gdp_france_usd, by = "date") |>
  left_join(iso3c |>
              rename(iso3c_partner = iso3c,
                     Iso3c_partner = Iso3c), by = "iso3c_partner") |>
  filter(date >= as.Date("1990-01-01")) |>
  ggplot() + xlab("") + ylab("Excédents Bilatéraux - France (% du PIB)") +
  geom_line(aes(x = date, y = NX/GDP, color = Iso3c_partner, linetype = Iso3c_partner)) + 
  theme_minimal() + scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.2)) +
  scale_x_date(breaks = seq(1950, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 10, 0.2),
                     labels = percent_format(accuracy = .1))

With World

Code 
chel202016718_TT |>
  filter(iso3c == "FRA",
         iso3c_partner %in% c("DEU", "CHN", "USA", "GBR", "WLD")) |>
  left_join(gdp_france_usd, by = "date") |>
  left_join(iso3c |>
              rename(iso3c_partner = iso3c,
                     Iso3c_partner = Iso3c), by = "iso3c_partner") |>
  filter(date >= as.Date("1990-01-01")) |>
  ggplot() + xlab("") + ylab("Excédents Bilatéraux - France (% du PIB)") +
  geom_line(aes(x = date, y = NX/GDP, color = Iso3c_partner, linetype = Iso3c_partner)) + 
  theme_minimal() + scale_color_manual(values = viridis(6)[1:5]) +
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.2)) +
  scale_x_date(breaks = seq(1950, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-10, 10, 0.2),
                     labels = percent_format(accuracy = .1))

Table all

Code 
chel202016718_TT |>
  filter(iso3c == "FRA",
         date == as.Date("2018-01-01")) |>
  left_join(gdp_france_usd, by = "date") |>
  left_join(iso3c |>
              rename(iso3c_partner = iso3c,
                     Iso3c_partner = Iso3c), by = "iso3c_partner") |>
  select(2, iso3c_partner, Iso3c_partner, NX, X, M, GDP) |>
  arrange(-NX) %>%
  mutate(NX_GDP = round(100*NX/GDP, 2)  |> paste0(" %"),
         X_GDP = round(100*X/GDP, 2)  |> paste0(" %"),
         M_GDP = round(100*M/GDP, 2)  |> paste0(" %")) |>
  select(-X, -M, -GDP, -NX) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}