Encontre entidades de países nos textos
Este exemplo mostra outra aplicação de TextCases, neste caso para reconhecer países em um texto.
Faça uma lista de três períodos históricos.
In[1]:=
![Click for copyable input](assets.pt-br/find-country-entities-in-texts/In_88.png)
periods = {Entity["HistoricalPeriod", "EuropeanRenaissance"],
Entity["HistoricalPeriod", "AgeEnlightenment"],
Entity["HistoricalPeriod", "IndustrialRevolution"]};
Extraia seus respectivos nomes.
In[2]:=
![Click for copyable input](assets.pt-br/find-country-entities-in-texts/In_89.png)
names = CommonName[periods]
Out[2]=
![](assets.pt-br/find-country-entities-in-texts/O_59.png)
Use WikipediaData para extrair o texto da página de cada período histórico.
In[3]:=
![Click for copyable input](assets.pt-br/find-country-entities-in-texts/In_90.png)
wikipages = WikipediaData /@ names;
Use TextCases para extrair os países mencionados em cada uma das páginas, eliminando duplicações.
In[4]:=
![Click for copyable input](assets.pt-br/find-country-entities-in-texts/In_91.png)
countries =
DeleteDuplicates[TextCases[#, "Country" -> "Interpretation"]] & /@
wikipages;
Por exemplo, esses são os países encontrados na página do renascimento europeu.
In[5]:=
![Click for copyable input](assets.pt-br/find-country-entities-in-texts/In_92.png)
First[countries]
Out[5]=
![](assets.pt-br/find-country-entities-in-texts/O_60.png)
Mostre no mapa os países mencionados em cada artigo.
mostre o input completo da Wolfram Language
Out[6]=
![](assets.pt-br/find-country-entities-in-texts/O_61.png)