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

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

Extraiga sus respectivos nombres.

In[2]:=

names = CommonName[periods]

Out[2]=

Use WikipediaData para recuperar el texto de la página de cada era histórica.

In[3]:=

wikipages = WikipediaData /@ names;

Use TextCases para extraer los países mencionados en cada una de dichas páginas, eliminando los duplicados.

In[4]:=

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

Por ejemplo, estos son los países encontrados en la página del renacimiento europeo.

In[5]:=

First[countries]

Out[5]=

Grafique en los respectivos mapas del mundo los países mencionados en cada artículo.

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