Créez un graphique de mots contextuels de The War of the Worlds de H. G. Wells: Nouveautés de Wolfram Language 11

Créez un graphique de mots contextuels de The War of the Worlds de H. G. Wells

Connectez-vous à l'API de OpenLibrary pour obtenir le texte du livre The War of the Worlds.

In[1]:=

ol = ServiceConnect["OpenLibrary"];
text = ol["BookText", 
   "BibKeys" -> {{\[ThinSpace]"OLID", "OL7211749M"}\[ThinSpace]}];

Vous pouvez créer un nuage de mots pour visualiser les mots liés aux envahisseurs martiens.

Montrer l'entrée complète de Wolfram Language

In[2]:=

sentences = TextSentences[text[1]];
preresult = 
  DeleteCases[
   Function[s, 
     Module[{sentence = DeleteStopwords[TextWords[ToLowerCase[s]]]},
      If[MemberQ[sentence, "martian" | "martians"], sentence]
      ]] /@ sentences, Null];
WordCloud[Tally[preresult]]

Out[2]=

Et créez un graphique des mots dans ce contexte.

Montrer l'entrée complète de Wolfram Language

In[3]:=

edges = Function[u, 
    Module[{words = 
       Pick[u, MemberQ[#, 
           Entity["GrammaticalUnit", "Noun"]] & /@ (PartOfSpeech /@ 
           u), True], basicedges, martianedges},
     basicedges = UndirectedEdge @@@ Partition[words, 2, 1];
     basicedges
     ]] /@ preresult;
Graph[Flatten[edges], VertexStyle -> RGBColor[0.6, 0.12, 0.], 
 EdgeStyle -> RGBColor[0.84, 0.04, 0.]]

Out[3]=

Wolfram Language™

Créez un graphique de mots contextuels de The War of the Worlds de H. G. Wells

Exemples connexes