Wolfram 언어™

문자 체계별 가장 빈번한 문자의 워드 클라우드

다음은 "Alphabet" 엔티티 중 가장 일반적인 문자 체계입니다.

In[1]:=

commonscripts = {Entity["WritingScript", "Arabic::3y92v"], Entity["WritingScript", "Cyrillic::73gxm"], Entity["WritingScript", "Latin::6tr5q"]};

Alphabet과 각 문자 체계의 암시적 클래스의 도움을 받아 각 문자의 연상을 문자 체계마다 구축합니다.

In[2]:=

allletters = AssociationMap[ Counts[Flatten[ Alphabet /@ EntityList[ EntityClass["Alphabet", {"WritingScripts" -> #}]]]] &, commonscripts];

이것을 사용하여 각 문자 체계의 문자 클라우드를 구축합니다.

In[3]:=

With[{cloudmask = Graphics[Disk[{0, 0}, {.35, .2}], PlotRange -> {{-1, 1}, {-1, 1}}, ImageSize -> 256]}, Overlay[{WordCloud[#2, cloudmask, PlotTheme -> "Marketing", ImageSize -> 256], Framed[#1["Name"], Background -> GrayLevel[0, 0.2], BaseStyle -> {RGBColor[0.8, 0.8, 0.8], 13}, FrameStyle -> RGBColor[0.8, 0.8, 0.8], RoundingRadius -> 5]}, Alignment -> Center] & @@@ Normal[allletters]] // Column

Out[3]=