找出文本中的国家实体: Wolfram语言 11 的新功能

找出文本中的国家实体

该范例显示了 TextCases 的另一种用法，用其识别给定文本中的国家.

构建三个历史时期的列表.

In[1]:=

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

提取其相对应名称.

In[2]:=

names = CommonName[periods]

Out[2]=

用 WikipediaData 提取每个历史时期页面的文本.

In[3]:=

wikipages = WikipediaData /@ names;

用 TextCases 提取这些页面中提到的国家，并删除重复.

In[4]:=

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

例如，以下为在欧洲文艺复兴时期页面中找到的国家.

In[5]:=

First[countries]

Out[5]=

将每个文章中提到的国家分别绘制在世界地图上.

显示完整的 Wolfram 语言输入

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

Wolfram 语言™

找出文本中的国家实体

相关范例