Foreign trade - 51000BJ002

Data - Destatis

Author

STLAH - Country Nomenclature for External Trade Statistics

Code

`51000BJ002_var`$STLAH %>%
  print_table_conditional

STLAH - Country Nomenclature for External Trade Statistics

Code

`51000BJ002_var`$ind %>%
  print_table_conditional

ind	Indicator
GEWA	Exports: Net mass
GEWE	Imports: Net mass
WERTA	Exports: Value
WERTAS	Exports: Value (US-Dollar)
WERTE	Imports: Value
WERTES	Imports: Value (US-Dollar)

ind, Indicator

Code

`51000BJ002` %>%
  group_by(ind, Indicator) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional

ind	Indicator	Nobs
GEWA	Exports: Net mass	7124
GEWE	Imports: Net mass	7124
WERTA	Exports: Value	7124
WERTAS	Exports: Value (US-Dollar)	7124
WERTE	Imports: Value	7124
WERTES	Imports: Value (US-Dollar)	7124

series_code, series_name

Code

`51000BJ002` %>%
  group_by(series_code, series_name) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional

France and Germany

Table

Tous

Code

`51000BJ002` %>%
  filter(STLAH == "STLAH001",
         ind %in% c("WERTA", "WERTAS", "WERTE", "WERTES")) %>%
  select(Indicator, period, value) %>%
  spread(Indicator, value) %>%
  arrange(desc(period)) %>%
  print_table_conditional

Euros

Code

`51000BJ002` %>%
  filter(STLAH == "STLAH001",
         ind %in% c("WERTA", "WERTE")) %>%
  select(Indicator, period, value) %>%
  spread(Indicator, value) %>%
  arrange(desc(period)) %>%
  mutate(`Net Exports` = `Exports: Value` - `Imports: Value`) %>%
  print_table_conditional

Dollars

Code

`51000BJ002` %>%
  filter(STLAH == "STLAH001",
         ind %in% c("WERTAS", "WERTES")) %>%
  select(Indicator, period, value) %>%
  spread(Indicator, value) %>%
  arrange(desc(period)) %>%
  mutate(`Net Exports` = `Exports: Value (US-Dollar)` - `Imports: Value (US-Dollar)`) %>%
  print_table_conditional()

Plot

Euros

Code

`51000BJ002` %>%
  filter(STLAH == "STLAH001",
         ind %in% c("WERTA", "WERTE")) %>%
  select(Indicator, period, value) %>%
  spread(Indicator, value) %>%
  arrange(desc(period)) %>%
  mutate(`Excédent Bilatéral de l'Allemagne sur la France (Destatis)` = (`Exports: Value` - `Imports: Value`)/1000000) %>%
  ggplot + geom_line(aes(x = period, y = `Excédent Bilatéral de l'Allemagne sur la France (Destatis)`)) +
  theme_minimal() +  xlab("") +
  scale_x_date(breaks = "2 years",
               labels = date_format("%y")) +
  scale_y_continuous(breaks = seq(-40, 100, 5),
                labels = dollar_format(suffix = "Mds€",  accuracy = 1, prefix = ""))

Euros

Code

`51000BJ002` %>%
  filter(STLAH == "STLAH001",
         ind %in% c("WERTA", "WERTE")) %>%
  ggplot + geom_line(aes(x = period, y = value/10^6, color = Indicator)) +
  theme_minimal() +  xlab("") + ylab("") +
  ggtitle("Commerce Bilatéral: Allemagne vers France (Source: Destatis)") +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.2, 0.8),
        legend.title = element_blank()) +
  scale_x_date(breaks = "5 years",
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-40, 150, 10),
                labels = dollar_format(suffix = " Mds€",  accuracy = 1, prefix = ""))