There is no measure of the variance exactly in nominal data. There are measures of diffusion. Kader provides a good discussion. 

Variance of nominal variable?
I just saw a nice plot there:



How could I implement that in Mathematica — by which I mean the plot structure, not so much the styling.
