Wolfram Language™

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.

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

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