costmanagement 发表于 2011-5-1 17:54
按13个code分类,每个code画一条线在一个图上,每个线上的有四个分位点。
*是不是这样的图
clear
inp str1 code p25 p50 p75 p90
A .0956329 .1588112 .3024194 .4069695
B .1235388 .1832895 .4553895 .4789813
C .244148 .3550065 .5167364 .7245763
D .3751484 .450483 .5145349 .5863126
E .3004347 .5952277 .7586102 .8037313
F .2787162 .4274019 .562998 .8209574
G .6175772 .87425 .9292268 .9751592
H .326914 .4514749 .6884523 .7647059
I .9745975 .9745975 .9745975 .9745975
J .4110169 .588286 .8247012 .9469026
K .2045112 .2923963 .6255869 .6959065
L .2819363 .6423792 .9015152 .9545454
M .2812006 .5093063 .9365207 .96875
end
reshape long p,i(code) j(c)
sc p c if code=="A", c(l) mlabel(code) || sc p c if code=="B", c(l) mlabel(code) ///
||sc p c if code=="C", c(l) mlabel(code) || sc p c if code=="D", c(l) mlabel(code) ///
||sc p c if code=="E", c(l) mlabel(code) || sc p c if code=="F", c(l) mlabel(code) ///
||sc p c if code=="G", c(l) mlabel(code) || sc p c if code=="H", c(l) mlabel(code) ///
||sc p c if code=="I", c(l) mlabel(code) || sc p c if code=="J", c(l) mlabel(code) ///
||sc p c if code=="K", c(l) mlabel(code) || sc p c if code=="L", c(l) mlabel(code) ///
||sc p c if code=="M", c(l) mlabel(code) xlabel(0 25 50 75 90 100)