My R package downloads

library(tidyverse)

cran <- dlstats::cran_stats(c("ggsignif", "ggupset", "tidygenomics", "mixdir", "einsum")) %>% 
  as_tibble()
bioc <- dlstats::bioc_stats(c("sparseMatrixStats", "glmGamPoi", "proDA",
                              "MatrixGenerics", "transformGamPoi")) %>% 
  as_tibble()

combined <- bind_rows(cran, transmute(bioc, start, end, downloads = Nb_of_downloads, package))

combined %>%
  filter(start > lubridate::today() - lubridate::years(3),
         end < lubridate::today()) %>%
  mutate(package = fct_reorder(package, -downloads)) %>%
  ggplot(aes(end, downloads, group=package, color=package)) +
   geom_hline(yintercept = 10^seq(2, 5), linewidth = 0.2, color = "lightgrey") +
   geom_line() + 
   geom_point() +
   scale_y_log10(labels = scales::label_comma()) + 
   scale_x_date(labels = scales::label_date_short(), breaks = lubridate::ym("2020-1", "2021-1", "2022-1", "2023-1", "2024-1", "2025-01", "2026-01")) +
   labs("Monthly downloads of my R packages", y = "Downloads / month (log-scale)", 
        x = "", color = "", 
        title = "Package downloads from CRAN and Bioconductor", 
        subtitle = paste0("last updated on ", lubridate::today())) +
   cowplot::theme_cowplot()