x=[35 20 12 10 8 6 6];
z=1:7;
parti=['s ';'m ';'kd';'v ';'fp';'c ';'mp'];
str='rbwrbgg';
hold on,
for i=1:7 bar(z(i),x(i),str(i)),end
text(z-0.1,2*ones(1,7),parti)
title('Valresultat 2002')
grid
