Find most downloaded ggplot2 extensions

gg-popular.R

library(tidyverse)
library(cranlogs)

ggplot2_extensions <- c("ggQQunif", "ggupset", "xmrr", "gg3D", "ggQC", "ggdist", "ggedit", "ggpage", "ggpca", "ggbreak",
                        "ggimg", "gganatogram", "ggforce", "ggalt", "ggiraph", "ggmuller", "ggstance", "ggrepel", "ggraph",
                        "gginnards", "ggpp", "ggpmisc", "geomnet", "ggExtra", "ggfortify", "autoplotly", "gganimate",
                        "ggfx", "plotROC", "ggbump", "ggthemes", "ggspectra", "ggstatsplot", "ggnetwork", "ggtech",
                        "ggradar", "ggx", "ggTimeSeries", "ggtree", "ggseas", "ggsci", "ggmosaic", "survminer", "ggeasy",
                        "ggside", "ggcorrplot", "ggpubr", "ggthemr", "GGally", "ggseqlogo", "ggChernoff", "ggridges",
                        "lemon", "cowplot", "qqplotr", "ggalluvial", "patchwork", "ggquiver", "ggsignif", "ggdag",
                        "ggformula", "ggbeeswarm", "ggperiodic", "ggpol", "ggpirate", "esquisse", "ggdark", "sugrrants",
                        "tvthemes", "ggfittext", "ggparty", "gggenes", "gggenomes", "treemapify", "lindia", "gghalves",
                        "ggrastr", "ggpointdensity", "ggsom", "ggnewscale", "ggh4x", "ggarrow", "legendry", "ggcharts",
                        "humapr", "ggshadow", "ggseg", "mdthemes", "ggwordcloud", "ggasym", "gglorenz", "hrbrthemes",
                        "ggpattern", "ggtext", "calendR", "ggip", "gglm", "econocharts", "ComplexUpset", "ggchromatic",
                        "ggheatmap", "see", "directlabels", "ggHoriPlot", "ggtrace", "ggESDA", "geomtextpath", "ggdensity",
                        "ggtranscript", "piecepackr", "oblicubes", "ggDoubleHeat", "nflplotR", "ggbraid", "ggblanket",
                        "ggpie", "ggstar", "ggarchery", "tidyterra", "ggseqplot", "ggsurvfit", "ggsector", "ggterror",
                        "ggragged", "ggmapinset", "ggmagnify", "ggblend", "ggflowchart", "ggrain", "ggoutlierscatterplot",
                        "ggautothemes", "AMR", "ichimoku", "eheat", "ggstats", "ggfoundry", "ggalign", "ggreveal",
                        "geofacet", "tidyplots", "rphylopic", "deeptime", "ggpcp", "ggvolcano", "ggfootball", "ggfields",
                        "ggsankeyfier", "ggpath", "gglinedensity", "ggsurveillance")

downloads_last_30 <- cran_downloads(packages = ggplot2_extensions, when = "last-month")

downloads_summary <- downloads_last_30 %>%
  group_by(package) %>%
  summarise(total_downloads = sum(count)) %>%
  arrange(desc(total_downloads))

slice_max(downloads_summary, n = 15, order_by = total_downloads)