Frequency of English word length

library(readr)
library(ggplot2)
filename <- commandArgs(trailingOnly = TRUE)
filename
## [1] "en.tsv"
data <- read_tsv(filename)
ggplot(data) +
    aes(x = Length, y = Count) +
    geom_point()