Trouvez des entités de pays dans les textes

Cet exemple montre une autre application de TextCases, dans ce cas pour reconnaître des pays dans un texte donné.

Construisez une liste de trois périodes historiques.

In[1]:=

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

Extrayez leurs noms respectifs.

In[2]:=

names = CommonName[periods]

Out[2]=

Utilisez WikipediaData pour récupérer le texte sur la page pour chaque époque historique.

In[3]:=

wikipages = WikipediaData /@ names;

Utilisez TextCases pour extraire les pays mentionnés sur chacune de ces pages, en supprimant les doublons.

In[4]:=

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

Voici, par exemple, les pays figurant sur la page de la Renaissance européenne.

In[5]:=

First[countries]

Out[5]=

Tracez dans les cartes du monde respectives les pays mentionnés dans chaque article.

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