Wolfram言語

多言語機能

文字体系ごとの最頻文字のワードクラウド

"Alphabet"実体の中で最も一般的な文字体系は次である.

In[1]:=
Click for copyable input
commonscripts = {Entity["WritingScript", "Arabic::3y92v"], Entity["WritingScript", "Cyrillic::73gxm"], Entity["WritingScript", "Latin::6tr5q"]};

Alphabetと各文字体系の暗黙のクラスの助けを借りて,各文字について頻度の連想を文字体系ごとに構築する.

In[2]:=
Click for copyable input
allletters = AssociationMap[ Counts[Flatten[ Alphabet /@ EntityList[ EntityClass["Alphabet", {"WritingScripts" -> #}]]]] &, commonscripts];

これを使って各文字体系の文字クラウドを作る.

完全なWolfram言語入力を表示する
In[3]:=
Click for copyable input
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]=

関連する例

de en es fr ko pt-br ru zh