Demographic Hall of Fame – authors who published most papers in 10 leading demographic journals

top-50-demographers.R

auth_50 %>%
    ggplot(aes(avg_cit, n_papers, color = avg_age_of_papers))+
    geom_vline(xintercept = 0, size = 2, color = "#04444499")+
    geom_point(size = 2)+
    geom_text(
        aes(label = author_abbr, size = n_papers),
        hjust = c(-.1, 1.1) %>% rep(25),
        vjust = c(-.05, 1.05) %>% rep(25),
        fontface = 2,
        alpha = .75
    )+
    scale_size_area(max_size = 4, guide = "none")+
    coord_cartesian(xlim = c(-20, 145))+
    scale_x_continuous(position = "top")+
    scale_y_continuous(position = "right")+
    scale_color_viridis_c(
        guide = guide_colorbar(
            reverse = T,
            barwidth = 15, barheight = .5,
            title.position = "top",
            direction = "horizontal"
        )
    )+
    theme(
        legend.position = "top",
        legend.background = element_rect(fill = "#eeffff", color = NA),
        plot.caption = element_text(size = 8, lineheight = .9),
        plot.title = element_text(size = 20, lineheight = .9, hjust = .5)
    )+
    annotate(
        "text", x = 140, y = 22, label = "@ikashnitsky.phd",
        color = "#04444444", size = 3, fontface = 2, family = "ah",
        hjust = 1, vjust = 0
    )+
    labs(
        x = "Average citations per paper",
        y = "N papers",
        color = "Average age of author's papers",
        title = "Top-50 demographers by number\nof papers in 10 selected journals",
        caption = "The selected 10 journals are: Demography, Demographic Research, European Journal of Population, Genus, Internationl Migration, Population and Development Review, Population Studies, Population, Population Research and Policy Review, Population Space and Place" %>%  str_wrap(140)
    )

x-data-3-plus.csv

x-data.csv