Visualize Country Population  

ImageCollage accepts a list of weighted images. Create a weighted collage by giving each country a weight proportional to its population.

Import population and flags of all countries.

In[1]:=

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

Out[1]=

Create a collage from flags of countries that contribute to at least 0.2 percent of the world population.

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