How adjusting a stacked bar graph and put the mark labels in the center of the bars.

Dear, I'm trying to draw a stacked bar plot. In this respect, I need to adjust the two color bars (only two colors depending on the case) . In addition, I wanted to put the text inside the bars, as shown in the code below. Can someone help me? Thanks a lot!

code: %% 1BMECANG

intro=36; % introdução a mecanica sms=36; % segurança e meio ambiente des1=72; % desenho técnico 1 met1=36; % metrologia dimensional 1 ped= 36; % P & D

%% 2BMECANG

des2=72; % desenho técnico 2 met2=72; % metrologia dimensional 1 fpm1= 36; % fundamentos de projeto mecânico 1

%% 3BMECANG

cm1=36; % Ciência dos materiais 1 des3=72; % Desenho Técnico 3 mi1=36; % Manutenção Industrial 1 fpm2=36; % fundamentos de projeto mecânico 2 sfm=36; % sistemas fluido-mecânico

%% 4BMECANG

cm_2=36; % Ciência dos materiais 2 aju=36; % Ajustagem fre=36; % Fresagem ret=36; % Retificação tor=36; % Torneamento mi2=36; % Manutenção Industrial 2 fpm3=36; % fundamentos de projeto mecânico 3 des4=72; % Desenho Técnico 4

%% 5BMECANG

auti1=36; % Automação Industrial 1 autu1=36; % Automação da Usinagem 1 fund=36; % Fundição sold=36; % Soldagem fpm4=36; % fundamentos de projeto mecânico 4 ttm=36; % Tratamentos térmicos e metalografia ins=36; % Inspeção e ensaios

%% 6BMECANG

autu2=36; % Automação da Usinagem 2 elem=36; % Elementos de máquinas meu=36; % Máquinas Especiais de Usinagem mtr=36; % Máquinas Térmicas e Refrigeração pcp=36; % Planejamento e Controle da Produção auti2=36; % Automação Industrial 2 tcc=72; % Trabalho de Conclusão de Curso

data=[intro sms des1 met1 ped nan nan nan des2 met2 fpm1 nan nan nan nan nan cm1 des3 mi1 fpm2 sfm nan nan nan cm_2 aju fre ret tor mi2 fpm3 des4 auti1 autu1 fund sold fpm4 ttm ins nan autu2 elem meu mtr pcp auti2 tcc nan];

 hbar=barh(data,'stacked')
 set(gca,'Layer','top')
 text(18, 1, 'MECANG01','FontWeight','bold','fontsize',10)
 text(54, 1, 'MECANG02','FontWeight','bold','fontsize',10)
 text(72, 1, 'MECANG03','FontWeight','bold','fontsize',10)
 text(90, 1, 'MECANG04','FontWeight','bold','fontsize',10)
 text(108, 1, 'P & D','FontWeight','bold','fontsize',10)

ylabels={'1BMECANG','2BMECANG','3BMECANG','4BMECANG','5BMECANG','6BMECANG'}; set(gca, 'ylim',[0,7],'box','off'); stp=36; Xt=0:stp:400; set(gca, 'xtick', Xt) set(gca, 'YTick', [1:6],'YtickLabel', ylabels,'FontWeight','bold','fontsize',12) grid on legend('Disciplinas Teóricas','Disciplinas Práticas')