CountryData
ImageCollage
AlphaChannel
PieChart
BarChart
DominantColors
ColorSeparate
EntityValue

Creative Arts
Image Processing

Color Analysis of Flags

Find the distribution of colors most used in the flags of the world

Open in Cloud
Download Notebook

Analyze the national flags available in

EntityValue

to discover the popularity of colors in the flags.

Access all the available flags from the dataset:

In[1]:=

flags=DeleteMissing@EntityValue["Country","Flag"];RandomSample[flags,10]

Out[1]=





Combine all the flag images into a collage with a transparent background:

In[2]:=

collage=ImageCollage[1flags,Automatic,1000,BackgroundTransparent]

Out[2]=

Create a mask so we analyze only the flag areas, ignoring transparency:

In[3]:=

mask=AlphaChannel[collage];

Find dominant colors in the collage and their coverages:

In[4]:=

colors=DominantColors[collage,Automatic,{"Coverage","Color"},Maskingmask,MinColorDistance0.3]

Out[4]=

0.261414,

,0.224262,

,0.164385,

,0.127587,

,0.0719194,

,0.0391694,

,0.00699836,



Visualize the color coverage as a pie chart using the actual colors:

In[5]:=

PieChart[colors〚All,1〛,ColorFunction(#/.(Rule@@@colors)&),ColorFunctionScalingFalse]

Out[5]=

Chart the information as a bar graph:

In[6]:=

top=ReverseSortBy[colors,First];BarCharttopAll,1,BarOriginLeft,



Out[6]=

External Links

Wolfram Function Repository – color

Related Symbols

CountryData
ImageCollage
AlphaChannel
PieChart
BarChart
DominantColors
ColorSeparate
EntityValue

Publisher Information

Contributed by: Wolfram Staff

License Information

This work is licensed under a Creative Commons Attribution 4.0 International License

Send a message about this example
Top