Gewichtete Schlagwortwolke 

Erzeugen Sie mit ImageCollage eine Schlagwortwolke einer Liste von Wörtern, gewichtet nach der Häufigkeit ihres Vorkommens in einem Textstück.

Importieren Sie ein Textstück und zählen Sie, wie oft jedes Wort jeweils vorkommt.

In[1]:=

X (data = Tally[ ToLowerCase /@ StringCases[ExampleData[{"Text", "ToBeOrNotToBe"}], WordCharacter ..]]) // Short

Out[1]//Short=

Erzeugen Sie aus diesen Wörtern eine Schlagwortwolke, gewichtet nach der jeweiligen Häufigkeit der Wörter im Text.

In[2]:=

X images = #2 -> Rasterize[Style[#1, RandomColor[LCHColor[_, 1, _]]], "Image", RasterSize -> 100] & @@@ data;

In[3]:=

X ImageCollage[images, "Fit", 400, ImagePadding -> 4, Background -> White]

Out[3]=