求助以下程序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

原数据如下：
变量X     变量Y
1           A
1           B
1           C
1           D
2           E
2           F
2           G
2           H

预期想达到以下：
变量X     变量Y      变量Z
1           A             B,C,D
1           B             A,C,D
1           C             A,B,D
1           D             A,B,C
2           E             F,G,H
2           F             E,G,H
2           G             E,F,H
2           H             E,F,G

请教各位

谢谢

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：程序

思路是，先做出A,B,C,D和E,F,G,H，再想办法把其中一个字母踢掉。

proc sort data = orig ;
  by x ;
run;
data temp (drop=y);
  set orig ;
  by x ;
  length temp_z $20 ;
  retain temp_z ;
  if first.x then temp_z = '' ;
  temp_z = catx(',',temp_z,y) ;
  if last.x then output ;
run;
data new (drop=temp_z);
  merge orig temp ;
  by x ;
  if not last.x then z=compress(tranwrd(temp_z,strip(y)||',','')) ;
  else z=compress(tranwrd(temp_z,','||strip(y),'')) ;
run;