ホームズ対ワトソン: Wolfram言語 11の新機能

ホームズ対ワトソン

シャーロック・ホームズ(Sherlock Holmes)が主人公のアーサー・コナン・ドイル(Arthur Conan Doyle)の小説をいくつか取り出す．

In[1]:=

novels = {Entity["Book", "TheSignOfTheFour1890"], 
   Entity["Book", "TheAdventuresOfSherlockHolmes"], 
   Entity["Book", "TheHoundOfTheBaskervilles"], 
   Entity["Book", "TheReturnOfSherlockHolmes1904"]};

In[2]:=

texts = EntityValue[novels, "Plaintext"];

2人の主人公が言及された回数を求める．

In[3]:=

counts = WordCounts /@ texts;

In[4]:=

watson = counts[[All, "Watson"]];
holmes = counts[[All, "Holmes"]];

新たな機能のCalloutを使って結果をプロットする．

In[5]:=

callouts = 
  Callout @@@ Transpose[{Transpose[{holmes, watson}], novels}];

In[6]:=

ListPlot[callouts, AxesLabel -> {"Holmes", "Watson"}, 
 AspectRatio -> Automatic, AxesOrigin -> {0, 0}]

Out[6]=

Wolfram言語™

ホームズ対ワトソン

関連する例