Sherlock contre Watson
Récupérez des romans d'Arthur Conan Doyle mettant en vedette Sherlock Holmes.
In[1]:=
novels = {Entity["Book", "TheSignOfTheFour1890"],
Entity["Book", "TheAdventuresOfSherlockHolmes"],
Entity["Book", "TheHoundOfTheBaskervilles"],
Entity["Book", "TheReturnOfSherlockHolmes1904"]};In[2]:=
texts = EntityValue[novels, "Plaintext"];Trouvez le nombre de fois où les deux personnages principaux sont mentionnés.
In[3]:=
counts = WordCounts /@ texts;In[4]:=
watson = counts[[All, "Watson"]];
holmes = counts[[All, "Holmes"]];Tracez les résultats en utilisant la nouvelle fonctionnalité de Callout.
In[5]:=
callouts =
Callout @@@ Transpose[{Transpose[{holmes, watson}], novels}];In[6]:=
ListPlot[callouts, AxesLabel -> {"Holmes", "Watson"},
AspectRatio -> Automatic, AxesOrigin -> {0, 0}]Out[6]=
