Population pyramid of Turkey 1960 using Eurostat data -- https://twitter.com/ikashnitsky/status/1318292709510184960

turkey-1960-pop-pyramid.R

#===============================================================================
# 2020-10-19 -- twitter
# Turkey population pyramid 1960
# Ilya Kashnitsky, ilya.kashnitsky@gmail.com
#===============================================================================

library(tidyverse)
library(magrittr)
library(hrbrthemes)
options(scipen = 999)

theme_set(
    theme_minimal(base_family = font_rc, base_size = 14)+
        theme(
            legend.position = "none",
            panel.grid.minor = element_blank(),
            line = element_line(lineend = "round")
        )
)

# download eurostat data
library(eurostat)

eu_pop <- get_eurostat("demo_pjan")


eu_pop %>% 
    # clean the dataset
    filter(
        !age %in% c("TOTAL", "UNK")
    ) %>% 
    mutate(
        year = time %>% lubridate::year(),
        age = age %>% 
            paste %>% 
            str_replace("Y_LT1", "Y_0") %>% 
            str_replace("Y_OPEN", "100") %>% 
            str_remove("_") %>%  
            str_remove("Y") %>% 
            as.numeric()
    ) %>% 
    arrange(time, sex, age) %>% 
    transmute(
        id = geo,
        year,
        sex = sex %>% as_factor() %>% 
            lvls_revalue(c("f", "m", "b")),
        age,
        value = values
    ) %>% 
    # plot Turkey 1960 age pyramid
    filter(
        !sex == "b", ! age == 100, id == "TR", year == 1960
    ) %>% 
    mutate(value = case_when(sex=="m" ~ -value, TRUE ~ value)) %>% 
    ggplot(aes(value, age, color = sex))+
    geom_vline(xintercept = 0, size = 1, color = "#bababa")+
    geom_path()+
    scale_x_comma(
        breaks = seq(-4e5, 4e5, 2e5), 
        labels = seq(-4e5, 4e5, 2e5) %>%  abs
    )+
    scale_color_manual(values = c(2, 5))+
    annotate(
        "text", label = c("Males", "Females"),
        x = c(-3e5, 3e5), y = 75, 
        size = 7, family = font_rc, color = c(5, 2)
    )+
    labs(
        title = "Turkey, 1960",
        caption = "Data: Eurostat (demo_pjan) | @ikashnitsky",
        x = NULL
    )+
    theme(plot.title = element_text(family = "Roboto Slab"))

ggsave("~/Downloads/turkey-1960-pyramid.png", width = 5, height = 4)