Wolfram Language™

Trouvez des entités de pays dans les textes

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

Extrayez leurs noms respectifs.

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;

Par exemple, ce sont les pays figurant sur la page pour 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]=