Chelem - chel202016718_TT

Data

Bilateral Trade Surpluses

World

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

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

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, 2020, 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

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, 2020, 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)

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, 2020, 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)

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, 2020, 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

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, 2020, 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

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, 2020, 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

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, 2020, 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

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, 2020, 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

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 .}