Wolfram言語™

通時的な単語頻度

バージョン11で導入されたWordFrequencyDataは，出版されたテキストからの単語の頻度に関する情報を複数の言語で集める．この新関数を使って単語の通時的な使用傾向を追跡する．

2つのビデオ形式名の，1960年から2000年までの使用状況を比較する．

In[1]:=

videoFormats = {"VHS", "BETAMAX"}; freqvideoFormats = WordFrequencyData[videoFormats, "TimeSeries", {1960, 2000}, IgnoreCase -> True];

In[2]:=

DateListPlot[freqvideoFormats, Filling -> Axis]

Out[2]=

以下の交通手段の名前の使われ方を2世紀に渡って比較する．

In[3]:=

transports = {"bus", "bicycle", "car", "train", "plane"}; freqtransports = WordFrequencyData[transports, "TimeSeries", {1800, 2000}, IgnoreCase -> True];

In[4]:=

DateListPlot[freqtransports, Filling -> Axis]

Out[4]=

ペンがいつ剣よりも強くなったかを求める．

In[5]:=

DateListPlot[ WordFrequencyData[{"sword", "pen"}, "TimeSeries", {1700, 2000}, IgnoreCase -> True], Filling -> Axis]

Out[5]=

時間の窓を狭めて，剣が返り咲いた時期を求める．

In[6]:=

DateListPlot[ WordFrequencyData[{"sword", "pen"}, "TimeSeries", {1950, 2000}, IgnoreCase -> True], Filling -> Axis]

Out[6]=