ikashnitsky

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