WordFrequencyData — a mathematica function I never knew I needed

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

OK, OK, OK

OK, OK, OK