por=1:10; 
nz={'Skoda', 'Peugeot', 'Citroen', 'VW', 'Renault', 'Suzuki', 'Ford', 'Kia', 'Opel', 'Hyundai'}; 
pp=[0.22, 0.076, 0.074, 0.072, 0.0552, 0.0548, 0.0492, 0.0488, 0.045, 0.043]; 
z=53578; 
pk=z*pp;

%figure(1)
%bar(pk), shg
%figure(2)
%pie(pp, nz), shg

figure(1)
subplot(121), bar(pk)
subplot(122), sk=[0 1 0 1 0 0 0 1 0 0]; pie(pp,sk), shg

%figure(2)
%subplot(211), bar(pk)
%subplot(212), pie(pp), shg

