Visualice la población de un país 

ImageCollage acepta una lista de imágenes ponderadas. Cree un collage ponderado, dando a cada país un peso proporcional a su población.

Importe la población y las banderas de todos los países.

In[1]:=

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

Out[1]=

Cree un collage a partir de las banderas de los países que contribuyen al menos con el 0,2 por ciento de la población 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]=