library(tidyverse)

letters <- read_csv("https://gist.github.com/tyleransom/c197d17b745870a464926435b95d7d9c/raw/3fd2cf7f50ecd9c04bd5adfbe4892f490730a560/beads.csv")

ggplot(data=letters, aes(x=`letter/character`)) +
    geom_bar() +
    geom_text(stat='count', aes(label=..count..), vjust=-1) +
    theme_minimal()