twoway area mpg wt if qt==1 , nodropbase bc(navy)  ||		///
       area mpg wt if qt==2 , nodropbase bc(green) ||		///
       area mpg wt if qt==3 , nodropbase bc(red)   ||		///
       area mpg wt if qt==4 , nodropbase bc(yellow) 		///
       scheme(intensity)					///
       ylabel(20 30 40) xlabel(2 3 4)				///
       plotregion(margin(zero))					///
       legend(subtitle(Predicted probability foreign)		///
              order(1 "( 0,.25]"  2 "(.25,.5]" 			///
	            3 "(.5,.75]"  4 "(.75,1)" )			///
       )							///
       aspect(1)