Wolfram Language (Mathematica), 142 bytes
BarChart[1~Table~6,BarOrigin->Left,ChartStyle->{Purple,Blue,Green,Yellow,Orange,Red},BarSpacing->0,Axes->False,ChartBaseStyle->EdgeForm[None]] 
theorist
- 1.5k
- 6
- 12
BarChart[1~Table~6,BarOrigin->Left,ChartStyle->{Purple,Blue,Green,Yellow,Orange,Red},BarSpacing->0,Axes->False,ChartBaseStyle->EdgeForm[None]]