Einwohnerzahlen von Ländern visualisieren 

ImageCollage akzeptiert eine Liste gewichteter Bilder. Erstellen Sie eine gewichtete Collage, indem Sie jedes Land proportional zu seiner Bevölkerung gewichten.

Importieren Sie die Bevölkerungszahlen und Langesfahnen aller Länder.

In[1]:=

X list = Rule @@ CountryData[#, {"Population", "Flag"}] & /@ CountryData[]

Out[1]=

Erstellen Sie eine Collage aus den Flaggen jener Länder, deren Einwohnerzahl jeweils mindestens 0,2 Prozent der Weltbevölkerung ausmacht.

In[2]:=

X th = Total[list[[All, 1]]]/500

Out[2]=

In[3]:=

X list2 = Select[list, #[[1]] > th &];

In[4]:=

X Length /@ {list, list2}

Out[4]=

In[5]:=

X ImageCollage[list2, ImagePadding -> 2, Background -> GrayLevel[.8]]

Out[5]=