Produit Intérieur Brut Réel - CHELEM_2018_PIB_VO_BvD_20180702

Data - CEPII

Author

Nobs - Javascript

Code

CHELEM_2018_PIB_VO_BvD_20180702 %>%
  left_join(pays %>%
              select(iso3c = `Code CIN`, iso3c_desc = `Libellé abrégé ENG`), 
            by = "iso3c") %>%
  group_by(iso3c, iso3c_desc) %>%
  summarise(Nobs = n(),
            date1 = first(date),
            date2 = last(date)) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Produit Intérieur Brut

Billions

Code

CHELEM_2018_PIB_VO_BvD_20180702 %>%
  filter(date %in% (c(1960, 1980, 2000, 2020) %>% paste0("-01-01") %>% as.Date)) %>%
  mutate(year = year(date)) %>%
  select(-date) %>%
  spread(year, value) %>%
  arrange(-`2020`) %>%
  mutate_at(vars(-iso3c), funs(paste0("$ ", round(./1000), " Bn"))) %>%
  left_join(pays %>%
              select(iso3c = `Code CIN`, iso3c_desc = `Libellé abrégé ENG`), 
            by = "iso3c") %>%
  group_by(iso3c, iso3c_desc) %>%
  select(iso3c, iso3c_desc, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Percent (%)

Code

CHELEM_2018_PIB_VO_BvD_20180702 %>%
  filter(date %in% (c(1960, 1980, 2000, 2020) %>% paste0("-01-01") %>% as.Date)) %>%
  mutate(year = year(date)) %>%
  select(-date) %>%
  spread(year, value) %>%
  arrange(-`2020`) %>%
  mutate_at(vars(-iso3c), funs(paste0(round(100*./.[1], 1), " %"))) %>%
  left_join(pays %>%
              select(iso3c = `Code CIN`, iso3c_desc = `Libellé abrégé ENG`), 
            by = "iso3c") %>%
  group_by(iso3c, iso3c_desc) %>%
  select(iso3c, iso3c_desc, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

GDP in France, Italy, Germany

Code

CHELEM_2018_PIB_VO_BvD_20180702 %>%
  filter(iso3c %in% c("FRA", "DEU", "ITA")) %>%
  ggplot() + 
  geom_line(aes(x = date, y = value/1000, color = iso3c, linetype = iso3c)) + 
  scale_color_manual(values = viridis(4)[1:3]) +
  theme_minimal()  +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
               labels = date_format("%y")) +
  theme(legend.position = c(0.8, 0.25),
        legend.title = element_blank()) +
  xlab("") + ylab("") +
  scale_y_log10(breaks = c(seq(0, 500, 100), seq(0, 7000, 500)),
                labels = dollar_format(suffix = " Bn", accuracy = 1))

GDP in USA, EU, China

Code

CHELEM_2018_PIB_VO_BvD_20180702 %>%
  filter(iso3c %in% c("USA", "UE", "CHN")) %>%
  ggplot() + 
  geom_line(aes(x = date, y = value/1000, color = iso3c, linetype = iso3c)) + 
  scale_color_manual(values = viridis(4)[1:3]) +
  theme_minimal()  +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 5), "-01-01")),
               labels = date_format("%y")) +
  theme(legend.position = c(0.8, 0.25),
        legend.title = element_blank()) +
  xlab("") + ylab("") +
  scale_y_log10(breaks = c(seq(0, 500, 100), seq(0, 5000, 1000), seq(0, 30000, 10000)),
                labels = dollar_format(suffix = " Bn", accuracy = 1))

Real GDP in France

Code

CHELEM_2018_PIB_VO_BvD_20180702 %>%
  filter(iso3c %in% c("FRA")) %>%
  select(date, GDP = value) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}