Frequência de palavras ao longo do tempo
A versão 11 introduz WordFrequencyData para coletar informações a respeito de palavras de textos publicados, em vários idiomas. Use esta nova função para rastrear tendências do uso de palavras ao longo do tempo.
Compare o uso de nomes de dois formatos de vídeos entre os anos de 1960 e 2000.
In[1]:=
![Click for copyable input](assets.pt-br/word-frequency-over-time/In_75.png)
videoFormats = {"VHS", "BETAMAX"};
freqvideoFormats =
WordFrequencyData[videoFormats, "TimeSeries", {1960, 2000},
IgnoreCase -> True];
In[2]:=
![Click for copyable input](assets.pt-br/word-frequency-over-time/In_76.png)
DateListPlot[freqvideoFormats, Filling -> Axis]
Out[2]=
![](assets.pt-br/word-frequency-over-time/O_53.png)
Compare o uso de nomes nesses métodos de transporte durante dois séculos.
In[3]:=
![Click for copyable input](assets.pt-br/word-frequency-over-time/In_77.png)
transports = {"bus", "bicycle", "car", "train", "plane"};
freqtransports =
WordFrequencyData[transports, "TimeSeries", {1800, 2000},
IgnoreCase -> True];
In[4]:=
![Click for copyable input](assets.pt-br/word-frequency-over-time/In_78.png)
DateListPlot[freqtransports, Filling -> Axis]
Out[4]=
![](assets.pt-br/word-frequency-over-time/O_54.png)
Descubra quando a caneta se tornou mais poderosa que a espada.
In[5]:=
![Click for copyable input](assets.pt-br/word-frequency-over-time/In_79.png)
DateListPlot[
WordFrequencyData[{"sword", "pen"}, "TimeSeries", {1700, 2000},
IgnoreCase -> True], Filling -> Axis]
Out[5]=
![](assets.pt-br/word-frequency-over-time/O_55.png)
Diminua a janela de tempo para descobrir quando a espada reapareceu.
In[6]:=
![Click for copyable input](assets.pt-br/word-frequency-over-time/In_80.png)
DateListPlot[
WordFrequencyData[{"sword", "pen"}, "TimeSeries", {1950, 2000},
IgnoreCase -> True], Filling -> Axis]
Out[6]=
![](assets.pt-br/word-frequency-over-time/O_56.png)