如何用数组转置

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

data a;
input a b $;
cards;
1 a
1 b
1 c
2 a
2 b
2 d
2 e
3 a
3 f
;
quit;

我想转置成
1  a b c
2 a b d e
3 a f
这样的格式，不知道怎么样data步实现？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：如何用 cards data步 Input Data 如何

用excel复制，转置粘贴，即可。

不是这么小的表，是一张很大的数据表！

PROC FREQ DATA=A NOPRINT ORDER=FREQ;
TABLES A/MISSING OUT=F_A(KEEP=COUNT);
RUN;
DATA _NULL_;
IF _N_=1 THEN SET F_A;
CALL SYMPUTX('N',COUNT);
RUN;
%PUT &N;
PROC SORT DATA=A;
BY A;
DATA A;
SET A;
BY A;
ARRAY X(&N) $;
RETAIN X;
IF FIRST.A THEN DO;
N=0;
DO I=1 TO &N;
X(I)='';
END;
END;
N+1;
X(N)=B;
IF LAST.A THEN OUTPUT;
KEEP A X:;
RUN;
PROC PRINT;
RUN;

proc transpose data=a out=a1;                                                                                                         
    var b;                                                                                                                              
    by a;                                                                                                                              
run;

谢谢～～

akakak123 发表于 2013-8-14 14:22
proc transpose data=a out=a1;                                                                        ...

非常感谢～～

The proc transpose is much efficient than a data step because one needs two data pass to have it transposed  in data step.

data a;
input a b $;
cards;
1 a
1 b
1 c
2 a
2 b
2 d
2 e
3 a
3 f
;

proc transpose data=a out=b prefix=x;
by a;
var b;
run;

proc print data=b;
run;