求助：如何知道某个人群患有的所有疾病组合

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我的数据大致是这样的：
data disease;
  input id disease1 disease2 disease3 disease4 disease5 disease6 disease7 disease8 disease9 disease10 disease11 disease12 disease13 disease14 disease15;
cards;
1 1 0 1 0 1 0 1 0 1 1 1 0 1 1 1
2 0 1 1 0 1 0 1 0 0 1 0 0 1 0 1
3 1 0 0 0 1 0 0 0 1 0 1 0 1 1 1
4 0 0 1 0 1 0 1 0 1 0 1 0 0 0 1
.....
;
run;
患有某种疾病就编码1，不患有该种疾病就编码0。现在我想知道某个人患有的疾病组合，如果第一个人患有第一种和第二种疾病，就这样编码：disease1_2=1, 如果第一个人患有第一种、第二种和第三种疾病，就这样编码：disease1_2_3=1, 一共15种疾病，疾病组合太多了，有什么简便的方法吗，求大神指导！谢谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：disease cards Input ease card

proc transpose data=a out=b(rename=(_name_=disease col1=value));
by id;
run;

data c;
  length diseaseall $200;
  set b;
        by id;
        retain diseaseall;
        disease=compress(disease,,'a');
        if first.id then diseaseall='disease';
        if value=1 then diseaseall=catx('_',diseaseall,disease);
        if last.id;
                                n=1;
                                drop disease value;
run;

proc transepose data=c out=d;
by id;
id diseaseall;
var n;
drop _name_;
run;

先将数据转置再做retain变量实现的，不知道是否是所需要的格式...

用数组会简单些。。
data b;
  length diseaseall $200;
  set a;
  array disease{15};
        retain diseaseall;
        diseaseall='disease';
        do i=1 to 15;
  if disease{i}=1 then diseaseall=catx('_',diseaseall,i);
        if i=15 then output;
        end;
        drop disease1-disease15 i;
run;

HXAI102230 发表于 2022-1-5 20:27
proc transpose data=a out=b(rename=(_name_=disease col1=value));
by id;
run;

谢谢！太厉害了！

HXAI102230 发表于 2022-1-5 20:29
先将数据转置再做retain变量实现的，不知道是否是所需要的格式...

谢谢！

HXAI102230 发表于 2022-1-5 20:39
用数组会简单些。。
data b;
  length diseaseall $200;

非常感谢！！