Visualize a população de países 

A ImageCollage aceita uma lista de imagens ponderadas. Crie uma colagem ponderada, dando a cada país um peso proporcional à sua população.

Importe a população e bandeira de todos os países.

In[1]:=

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

Out[1]=

Crie uma colagem a partir das bandeiras dos países que contribuam com, pelo menos, 0.2 por cento da população mundial.

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]=