Encuentre entidades de países en los textos
Este ejemplo muestra otra aplicación de TextCases, es este caso para reconocer países en un texto dado.
Construya una lista de tres períodos históricos.
In[1]:=
![Click for copyable input](assets.es/find-country-entities-in-texts/In_88.png)
periods = {Entity["HistoricalPeriod", "EuropeanRenaissance"],
Entity["HistoricalPeriod", "AgeEnlightenment"],
Entity["HistoricalPeriod", "IndustrialRevolution"]};
Extraiga sus respectivos nombres.
In[2]:=
![Click for copyable input](assets.es/find-country-entities-in-texts/In_89.png)
names = CommonName[periods]
Out[2]=
![](assets.es/find-country-entities-in-texts/O_59.png)
Use WikipediaData para recuperar el texto de la página de cada era histórica.
In[3]:=
![Click for copyable input](assets.es/find-country-entities-in-texts/In_90.png)
wikipages = WikipediaData /@ names;
Use TextCases para extraer los países mencionados en cada una de dichas páginas, eliminando los duplicados.
In[4]:=
![Click for copyable input](assets.es/find-country-entities-in-texts/In_91.png)
countries =
DeleteDuplicates[TextCases[#, "Country" -> "Interpretation"]] & /@
wikipages;
Por ejemplo, estos son los países encontrados en la página del renacimiento europeo.
In[5]:=
![Click for copyable input](assets.es/find-country-entities-in-texts/In_92.png)
First[countries]
Out[5]=
![](assets.es/find-country-entities-in-texts/O_60.png)
Grafique en los respectivos mapas del mundo los países mencionados en cada artículo.
muestre la entrada completa de Wolfram Language
Out[6]=
![](assets.es/find-country-entities-in-texts/O_61.png)