pks <- library()

pks <- pks$results %>% as_tibble

pks %>% glimpse

pkm <- pks$Package %>% str_split("", simplify = T)

pkm[, 1] %>% str_to_lower %>% table %>% sort(decreasing = T) %>% barchart(horizontal = F)