cranlogs package rank

pkgRank.R

library(cranlogs)
library(dplyr)

allPackages = available.packages() %>% rownames

groups = cut(seq_along(allPackages), breaks = seq(0,length(allPackages),20)) %>% {.=as.character(.);.[is.na(.)]='last';factor(.,levels = unique(.))}
package_groups = split(allPackages,groups)


package_groups %>% lapply(function(x){
    x %>% cran_downloads('last-month') %>% group_by(package) %>% summarise(sum(count))
}) %>% do.call(rbind,.) -> package_downloads

package_count = package_downloads %>% filter(package == 'ggplot2') %$% `sum(count)`

sum(package_downloads$`sum(count)`>package_count)/nrow(package_downloads)