dxystata 发表于 2014-10-16 20:50
如果数据集aaa是这样，如何保持数据集中ccc中name取值的顺序为aaa数据中name的顺序c a b

pobel 发表于 2014-10-16 16:22
proc sort data=aaa;
    by name site g;
run;

data ccc;
        set aaa;
        by name site g;
        if first.site then _x1=catx(" ",x1);
        if not first.site then _x1=catx(" ",_x1,x1);
        retain _x1;
        if last.site;
run;


proc transpose data=ccc out=ddd(drop=_:) prefix=site;
   by name;
   var _x1;
   id site;
run;


proc sql noprint;
   select distinct cats("site",site,"=",quote(strip(x))) into : label separated by " " from bbb;
quit;

proc datasets;
   modify ddd;
   label &label;
run;
quit;

magician1943 发表于 2014-10-16 16:46
修改标签部分与楼上相同，前半部分可以两次转置：
proc transpose data=aaa out=ccc;
var x1;
by name site;

run;
quit;

data ccc1(keep=name site c);
set ccc;
if col1^=. and col2^=. then c=cat(put(col1,z2.),"",put(col2,z2.));
else c=col1;
run;
proc transpose prefix=site data=ccc1 out=ccc2;
var c;
by name ;
id site;
run;
quit;