counts.R

library(tidyverse)

## Loading tidyverse: ggplot2
## Loading tidyverse: tibble
## Loading tidyverse: tidyr
## Loading tidyverse: readr
## Loading tidyverse: purrr
## Loading tidyverse: dplyr

## Conflicts with tidy packages ----------------------------------------------

## filter(): dplyr, stats
## lag():    dplyr, stats

pkgs <- available.packages(repos = "https://cran.rstudio.com/")
counts <- pkgs[, "Package"] %>%
  tolower() %>%
  stringi::stri_reverse() %>%
  stringi::stri_sub(1, 1) %>%
  table() %>%
  enframe("character", "count") %>%
  mutate(count = as.numeric(count))

ggplot(counts) +
  aes(character, count) +
  geom_col() +
  labs(x = "Last character of package name")