Créez un corpus de Shakespeare avec FileSystemScan

Pour cet exemple, on utilise un répertoire incluant les fichiers texte de toutes les œuvres de Shakespeare. Commencez par importer le contenu textuel des livres avec FileSystemMap, en réunissant seulement le contenu textuel lui-même.

In[1]:=

booksdir = FileNameJoin[{$HomeDirectory, "Books", "Shakespeare"}]

In[2]:=

works = Values[ FileSystemMap[Import, FileNameJoin[{$HomeDirectory, "Books"}], 2, FileNameForms -> "*.txt"][[1]]]

Out[2]=

Construisez un corpus unique en utilisant StringJoin.

In[3]:=

corpus = StringJoin[works]

Out[3]=

Le corpus peut désormais être traité comme une chaîne de caractères unique pouvant faire l'objet d'une recherche, ce qui permet d'utiliser de manière triviale des applications de traitement de texte avancées. Déterminez quels pays sont référencés dans ces ouvrages en utilisant TextCases, tout en filtrant les doublons et les problèmes de casse.

In[4]:=

countries = ToLowerCase[TextCases[corpus, "Country"]] // DeleteDuplicates

Out[4]=

In[5]:=

countries = DeleteCases[countries, "world"];

Construisez un GeoListPlot des pays mentionnés dans les œuvres de Shakespeare.

In[6]:=

GeoListPlot[Interpreter["Country"] /@ countries]

Out[6]=