Создание диаграммы контекстуальных существительных из романа Г.Уэльса "Война миров" : Новое в системе Wolfram Language 11

Создание диаграммы контекстуальных существительных из романа Г.Уэльса "Война миров"

Установить связь с OpenLibrary API, чтобы получить тест книги "Война миров".

In[1]:=

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

Cоздать облако слов, чтобы визуализировать слова, относящиеся к марсианским захватчикам.

код на языке 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]=

Создать диаграмму из подобранных слов.

код на языке 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]=