WordFrequencyData — a mathematica function I never knew I needed

DateListPlot[WordFrequencyData[{"Okeh", "Okay"}, "TimeSeries"], Frame -> {True, True, False, False}, PlotLabel -> "Word Frequency in English"]