Wolfram Language™

Länder einem bestimmten Texten finden.

Dieses Beispiel illustriert eine weitere Anwendung von TextCases, in diesem Fall die Erkennung von Ländern in einem bestimmten Text.

Erstellen Sie eine Liste drei historischer Epochen.

In[1]:=

periods = {Entity["HistoricalPeriod", "EuropeanRenaissance"], Entity["HistoricalPeriod", "AgeEnlightenment"], Entity["HistoricalPeriod", "IndustrialRevolution"]};

Extrahieren Sie ihre jeweiligen Namen.

In[2]:=

names = CommonName[periods]

Out[2]=

Verwenden Sie WikipediaData, um den Wikipediatext für jede historische Epoche abzurufen.

In[3]:=

wikipages = WikipediaData /@ names;

Extrahieren Sie mit TextCases die Länder, die in jedem dieser Einträge vorkommen. Löschen Sie Mehrfachnennungen.

In[4]:=

countries = DeleteDuplicates[TextCases[#, "Country" -> "Interpretation"]] & /@ wikipages;

Dies sind zum Beispiel die Länder, die im Eintrag zur Renaissance erwähnt werden:

In[5]:=

First[countries]

Out[5]=

Veranschaulichen Sie auf den jeweiligen Weltkarten die in den Artikeln erwähnten Länder.

In[6]:=

countries = DeleteCases[countries, Entity["Country", "World"], {2}]; Table[ GeoGraphics[{ EdgeForm[{Black}], Red, Polygon /@ countries[[i]] }, GeoRange -> "World", ImageSize -> 400, PlotLabel -> names[[i]], GeoBackground -> "Coastlines" ], {i, 3} ]

Out[6]=