Frecuencia de palabras en el tiempo
La versión 11 introduce WordFrequencyData para recoger información acerca de frecuencias de palabras en textos publicados, en varios idiomas. Use esta nueva función para rastrear tendencias en el uso de las palabras en el tiempo.
Compare el uso de los nombres de dos formatos de video entre los años 1960 y 2000.
In[1]:=
![Click for copyable input](assets.es/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.es/word-frequency-over-time/In_76.png)
DateListPlot[freqvideoFormats, Filling -> Axis]
Out[2]=
![](assets.es/word-frequency-over-time/O_53.png)
Compare el uso de los nombre es estos métodos de transporte durante dos siglos.
In[3]:=
![Click for copyable input](assets.es/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.es/word-frequency-over-time/In_78.png)
DateListPlot[freqtransports, Filling -> Axis]
Out[4]=
![](assets.es/word-frequency-over-time/O_54.png)
Descubra cuando el bolígrafo se convirtió en más poderoso que la espada.
In[5]:=
![Click for copyable input](assets.es/word-frequency-over-time/In_79.png)
DateListPlot[
WordFrequencyData[{"sword", "pen"}, "TimeSeries", {1700, 2000},
IgnoreCase -> True], Filling -> Axis]
Out[5]=
![](assets.es/word-frequency-over-time/O_55.png)
Reduzca la ventana de tiempo para encontrar cuando la espada reapareció.
In[6]:=
![Click for copyable input](assets.es/word-frequency-over-time/In_80.png)
DateListPlot[
WordFrequencyData[{"sword", "pen"}, "TimeSeries", {1950, 2000},
IgnoreCase -> True], Filling -> Axis]
Out[6]=
![](assets.es/word-frequency-over-time/O_56.png)