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]:=
![Click for copyable input](assets.fr/find-country-entities-in-texts/In_88.png)
periods = {Entity["HistoricalPeriod", "EuropeanRenaissance"],
Entity["HistoricalPeriod", "AgeEnlightenment"],
Entity["HistoricalPeriod", "IndustrialRevolution"]};
Extrayez leurs noms respectifs.
In[2]:=
![Click for copyable input](assets.fr/find-country-entities-in-texts/In_89.png)
names = CommonName[periods]
Out[2]=
![](assets.fr/find-country-entities-in-texts/O_59.png)
Utilisez WikipediaData pour récupérer le texte sur la page pour chaque époque historique.
In[3]:=
![Click for copyable input](assets.fr/find-country-entities-in-texts/In_90.png)
wikipages = WikipediaData /@ names;
Utilisez TextCases pour extraire les pays mentionnés sur chacune de ces pages, en supprimant les doublons.
In[4]:=
![Click for copyable input](assets.fr/find-country-entities-in-texts/In_91.png)
countries =
DeleteDuplicates[TextCases[#, "Country" -> "Interpretation"]] & /@
wikipages;
Voici, par exemple, les pays figurant sur la page de la Renaissance européenne.
In[5]:=
![Click for copyable input](assets.fr/find-country-entities-in-texts/In_92.png)
First[countries]
Out[5]=
![](assets.fr/find-country-entities-in-texts/O_60.png)
Tracez dans les cartes du monde respectives les pays mentionnés dans chaque article.
Afficher l'entrée complète de Wolfram Language
Out[6]=
![](assets.fr/find-country-entities-in-texts/O_61.png)