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]:=

periods = {Entity["HistoricalPeriod", "EuropeanRenaissance"], Entity["HistoricalPeriod", "AgeEnlightenment"], Entity["HistoricalPeriod", "IndustrialRevolution"]};

Extraia seus respectivos nomes.

In[2]:=

names = CommonName[periods]

Out[2]=

Use WikipediaData para extrair o texto da página de cada período histórico.

In[3]:=

wikipages = WikipediaData /@ names;

Use TextCases para extrair os países mencionados em cada uma das páginas, eliminando duplicações.

In[4]:=

countries = DeleteDuplicates[TextCases[#, "Country" -> "Interpretation"]] & /@ wikipages;

Por exemplo, esses são os países encontrados na página do renascimento europeu.

In[5]:=

First[countries]

Out[5]=

Mostre no mapa os países mencionados em cada artigo.

In[6]:=

countries = DeleteCases[countries, Entity["Country", "World"], {2}]; Table[ GeoGraphics[{ EdgeForm[{Black}], Red, Polygon /@ countries[[i]] }, GeoRange -> "World", ImageSize -> 400, PlotLabel -> names[[i]], GeoBackground -> "Coastlines" ], {i, 3} ]

Out[6]=