Einen Shakespeare-Korpus mit FileSystemScan erstellen

In diesem Beispiel verwenden wir ein Verzeichnis mit den Textdateien von Shakespeare's gesamten Werken. Fangen Sie damit an, den textlichen Inhalt der Bücher mit FileSystemMap zu importieren, womit nur der Text übernommen wird.

In[1]:=

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

In[2]:=

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

Out[2]=

Erstellen Sie mit StringJoin einen einzelnen Korpus.

In[3]:=

corpus = StringJoin[works]

Out[3]=

Der Korpus kann nun als ein einziger durchsuchbarer String behandelt werden, so dass erweiterte Textverarbeitungsanwendungen genutzt werden können. Bestimmen Sie mit TextCases, welche Länder in diesen Werken erwähnt werden, und filtern Sie Duplikate.

In[4]:=

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

Out[4]=

In[5]:=

countries = DeleteCases[countries, "world"];

Erzeugen Sie einen GeoListPlot der Länder, die in Shakespeares Werken erwähnt werden.

In[6]:=

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

Out[6]=