SAS行列转换一定要用proc transpose？No No No，其他2种替代方案同样实现！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

行列转换简单示例Before转换

Obs	TRTN	AGEGR1N	AVAL
1	1	1	11
2	1	2	12
3	1	3	13
4	2	1	21
5	2	2	22
6	2	3	23

After转换

Obs	TRTN	AGEGR_1	AGEGR_2	AGEGR_3
1	1	11	12	13
2	2	21	22	23

>首选方案proc transpose一发入魂？\
code示例如下
data test;
TRTN=1; AGEGR1N=1; AVAL=11; output;
TRTN=1; AGEGR1N=2; AVAL=12; output;
TRTN=1; AGEGR1N=3; AVAL=13; output;
TRTN=2; AGEGR1N=1; AVAL=21; output;
TRTN=2; AGEGR1N=2; AVAL=22; output;
TRTN=2; AGEGR1N=3; AVAL=23; output;
run;
proc transpose data=test out=test_tran0 prefix=AGEGR_;
by TRTN;
  id AGEGR1N;
  var AVAL;
run;
>替代方案1利用data过程步的retain+if first／if last组合
data test_tran1;
  set test;
  by TRTN AGEGR1N;
  retain AGEGR_1 AGEGR_2 AGEGR_3;
  if first.TRTN then call missing(AGEGR_1,AGEGR_2,AGEGR_3);
  if AGEGR1N=1 then AGEGR_1=AVAL;
  if AGEGR1N=2 then AGEGR_2=AVAL;
  if AGEGR1N=3 then AGEGR_3=AVAL;
  if last.TRTN then output;
  keep TRTN AGEGR_1 AGEGR_2 AGEGR_3;
run;
>替代方案2讨厌data过程步，特别偏爱sql的小伙伴们可以看看下面示例code，估计很少有人用，我反正是没见过其他sp这个写过，嘿嘿
proc sql noprint;
  create table test_tran2 as
  select distinct TRTN
            , max(case when AGEGR1N=1 then AVAL else . end) as AGEGR_1
            , max(case when AGEGR1N=2 then AVAL else . end) as AGEGR_2
            , max(case when AGEGR1N=3 then AVAL else . end) as AGEGR_3
  from test
  group by TRTN;
quit;
>两种方案的执行结果


结论

码code是个辛苦的体力活，偶尔换个解法，换个思维，枯燥也许会变的有趣，工作也许更有动力。
以上介绍仅供参考，具体问题具体对待，如果有更有趣的解法欢迎留言探讨，共同进步。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Transpose Trans pose ROC POS

非常好，学习了。

非常棒，学到了

不错不错，又学习了！

感谢分享，我在官方论坛找到类似的话题，想起你这篇分享，就也放在这里作为参考：https://communities.sas.com/t5/S ... to-Wide/td-p/919887