Frequency of English word length

library(readr)
library(ggplot2)
filename <- commandArgs(trailingOnly = TRUE)
filename

## [1] "fr.tsv"

data <- read_tsv(filename)
ggplot(data) +
    aes(x = Length, y = Count) +
    geom_point()