In[]:=
ImageCompose
,GraphicsColumnTableGraphics[Style[Disk[],color],ImageSize->75],color,DominantColors

Out[]=