使用 Wolfram 语言实体访问维基百科内容

庞大且与日俱增的 Wolfram 知识库实体与外部资源对接，包括维基百科.

使用 WikipediaData 检索这些实体的页面，并提取各个页面的第一句.

In[1]:=

entities = {Entity["Person", "JohnLennon::cpwy3"], Entity["Species", "Species:AcinonyxJubatus"], Entity["City", {"NewYork", "NewYork", "UnitedStates"}], Entity["MusicAct", "PinkFloyd::7523m"], Entity["AdministrativeDivision", {"Florida", "UnitedStates"}]};

In[2]:=

summaries = Table[{ent, First[TextSentences[WikipediaData[ent]]]}, {ent, entities}];

创建一个关于这些实体的格式化文本摘要集合.

In[3]:=

Panel[TextGrid[summaries, Background -> {Automatic, {{LightOrange, White}}}, Alignment -> Left], ImageSize -> 500]

Out[3]=

作为第二个示例，检索关于每一位滚石乐队成员的维基百科文章.

In[4]:=

stones = Entity["MusicAct", "TheRollingStones::99n5n"]["Members"]

Out[4]=

In[5]:=

stonesWiki = WikipediaData[stones];

生成一个词云拼贴，按文章字数加权.

In[6]:=

weightedStonesClouds = WordCount[#] -> WordCloud[DeleteStopwords[#]] & /@ DeleteMissing[stonesWiki]; ImageCollage[weightedStonesClouds, Method -> "Columns"]

Out[6]=