Шерлок против Ватсона

Запросите несколько романов Артура Конан Дойля, в которых фигурирует Шерлок Холмс.

In[1]:=

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

In[2]:=

texts = EntityValue[novels, "Plaintext"];

Найдите количество упоминаний каждого из двух главных героев.

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