from OP’s code:

In[]:=
pcs={{"Black",
,254},{"Dark Blue",
,660},{"Dark Azure",
,127},{"Light Aqua",
,317},{"White",
,474},{"Bright Pink",
,58},{"Red",
,190},{"Orange",
,121},{"Bright Light Orange",
,175},{"Yellow",
,299},{"Bright Light Yellow",
,119},{"Tan",
,241},{"Medium Nougat",
,281},{"Reddish Brown",
,307},{"Bright Green",
,148},{"Lime",
,166}};
In[]:=
dominantcols=
;
In[]:=
colset=pcs[[All,2]]
Out[]=
{
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
}

quick disks:

In[]:=
bgcol=
;​​Show[MapIndexed[Graphics[{#1,Disk[Reverse[#2]{1,-1},1/2]}]&,dominantcols,{2}],Background->bgcol]​​bg1=Show[MapIndexed[Graphics[{First[Nearest[colset,#1]]/.{​​colset[[4]]->colset[[-5]]​​},Disk[Reverse[#2]{1,-1},1/2]}​​]&,RotateLeft/@dominantcols,{2}],​​Background->bgcol]
Out[]=
Out[]=

touch up:

In[]:=
Showbg1,Graphicscolset[[7]],​​Disk[#,1/2]&/@

Out[]=