The most noticed and discussed papers of 2021 – https://twitter.com/ikashnitsky/status/1481012280083025925

altmetric-top-100-2021.R

#===============================================================================
# 2022-01-11 -- twitter
# Altmetric top-100 https://altmetric.figshare.com/ndownloader/files/31569431
# Ilya Kashnitsky, [email protected], @ikashnitsky
#===============================================================================

library(tidyverse)
library(magrittr)
library(hrbrthemes)
library(ggdark)

options(scipen = 999)


df <- rio::import("https://altmetric.figshare.com/ndownloader/files/31569431") %>%
    janitor::clean_names()

df %>%
    ggplot(aes(twitter_mentions, news_mentions))+
    geom_rect(
        xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = 10 %>% log10,
        fill = "#bf5f82", color = NA, alpha = .2
    )+
    geom_point(
        aes(size = altmetric_attention_score, color = altmetric_attention_score),
        shape = 16
    )+
    geom_text(
        aes(label = seq_along(altmetric_attention_score)),
        size = 2, vjust = .1, hjust = .1, family = font_rc
    )+
    scale_size_area(max_size = 10)+
    scale_color_viridis_c()+
    scale_x_comma(trans = "log10", limits = c(3, 40e4))+
    scale_y_comma(trans = "log10", limits = c(1, 3e3))+
    dark_theme_minimal(base_family = font_rc)+
    theme(
        legend.position = "none",
        plot.background = element_rect(colour = NA)
    )+
    labs(
        title = "Altmetric top 100 papers of 2021",
        subtitle = "The bubbles are sized and colored by total Altmetric score",
        caption = "https://altmetric.figshare.com/ndownloader/files/31569431",
        x = "Twitter mentions",
        y = "News mentions"
    )