Créez un corpus de Shakespeare à l'aide de FileSystemScan
Pour cet exemple, un répertoire est utilisé, incluant les fichiers de texte de toutes les œuvres de Shakespeare. Commencez par importer le contenu textuel des livres Avec FileSystemMap, réunissant seulement le contenu textuel lui-même.
Montrer l'entrée complète de Wolfram Language
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 maintenant être traité comme une seule chaîne consultable, permettant l'utilisation des applications avancées de traitement de texte trivialement. Déterminez quels pays sont référencés dans ces œuvres en utilisant TextCases, tout en filtrant les doublons et les questions de boîtier.
In[4]:=

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

Montrer l'entrée complète de Wolfram Language
Construisez un GeoListPlot des pays mentionnés dans les œuvres de Shakespeare.
In[6]:=

GeoListPlot[Interpreter["Country"] /@ countries]
Out[6]=
