Procesamiento de texto y lenguaje

Sherlock vs. Watson

Recupere algunas novelas de Arthur Conan Doyle con Sherlock Holmes.

In[1]:=
Click for copyable input
novels = {Entity["Book", "TheSignOfTheFour1890"], Entity["Book", "TheAdventuresOfSherlockHolmes"], Entity["Book", "TheHoundOfTheBaskervilles"], Entity["Book", "TheReturnOfSherlockHolmes1904"]};
In[2]:=
Click for copyable input
texts = EntityValue[novels, "Plaintext"];

Encuentre el número de veces que los dos personajes principales son mencionados.

In[3]:=
Click for copyable input
counts = WordCounts /@ texts;
In[4]:=
Click for copyable input
watson = counts[[All, "Watson"]]; holmes = counts[[All, "Holmes"]];

Grafique los resultados usando la nueva función Callout.

In[5]:=
Click for copyable input
callouts = Callout @@@ Transpose[{Transpose[{holmes, watson}], novels}];
In[6]:=
Click for copyable input
ListPlot[callouts, AxesLabel -> {"Holmes", "Watson"}, AspectRatio -> Automatic, AxesOrigin -> {0, 0}]
Out[6]=

Ejemplos relacionados

de en fr ja ko pt-br ru zh