‹›Внешние услуги Создание диаграммы контекстуальных существительных из романа Г.Уэльса "Война миров"
Установить связь с OpenLibrary API, чтобы получить тест книги "Война миров".
ol = ServiceConnect["OpenLibrary"];
text = ol["BookText",
"BibKeys" -> {{\[ThinSpace]"OLID", "OL7211749M"}\[ThinSpace]}];
Cоздать облако слов, чтобы визуализировать слова, относящиеся к марсианским захватчикам.
код на языке Wolfram Language целиком
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]]
Создать диаграмму из подобранных слов.
код на языке Wolfram Language целиком
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.]]