Color Analysis of Flags 

Analyze the national flags available in CountryData to discover the popularity of colors in the flags.

Create a collage of all country flags.

In[1]:=

X flags = CountryData[#, "Flag"] & /@ CountryData[];

In[2]:=

X c = ImageCollage[1 -> flags, Automatic, 1000, Background -> Transparent]

Out[2]=

In[3]:=

X mask = AlphaChannel[c];

Compute dominant colors and their coverage in the collage, only looking at the foreground.

In[4]:=

X colors = DominantColors[c, Automatic, {"Coverage", "Color"}, Masking -> mask]

Out[4]=

Flag color distribution.

In[5]:=

X PieChart[colors[[All, 1]], ColorFunction -> (# /. Rule @@@ colors &), ColorFunctionScaling -> False]

Out[5]=