sas中的多分类条件重新赋值问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

大家好，我有一列数据ca，要生成一列数据icd，满足条件：ca的值只要包含"肝"，那么icd='c22'；包含"肠"，icd='c18-20'；包含"肺"，icd='c33'。例如：

ca	icd
原发性肝癌	c22
肝癌	c22
结肠癌	c18-20
直肠癌	c18-20
肺癌	c33
支气管肺癌	c33
肺中叶恶性肿瘤	c33

之前用的是where语句，分成若干个子集后做的，非常麻烦。请问有没有一个简单一些的方法来实现？

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：多分类 Where 请问有没有 HERE 恶性肿瘤 结肠癌 直肠癌 原发性 支气管 where

if index(ca,'肝') and index(ca,'肺') then icd='c33';
else if index(ca,'肝') then icd='c22';
else if  index(ca,'肺') then icd='c18-20';
else icd='wrong';

data demo;
length ca $20;
  input ca $  ;
datalines;
原发性肝癌
肝癌
结肠癌       
直肠癌
肺癌
支气管肺癌       
肺中叶恶性肿瘤       
;

data want;
   set demo;
       if find(ca,"肝") then  icc="c22";
else if find(ca,"肠") then icc="c18-20";
else if find(ca,"肺")  then icc="c33";
run;

用find函数和index函数有什么区别吗？

pingguzh 发表于 2012-12-14 11:24
用find函数和index函数有什么区别吗？

        1.在字符串中查找某一特定子串并返回子串在原字符串中的位置：
        Position=FIND(target,value<,modifiers,startpos>);
        若子串已查到，则返回其第一次出现的位置，否则返回0。modifiers可能为I或T，I代表大小写不敏感，T代表忽略后方空格，默认为大小写敏感且不忽略后方空格。startpos是一个整数代表了开始查找的起点（用大小表示）和方向（用正负表示），默认为从第1个字符开始向后顺次查找。这两个参数以及参数中字母的顺序是任意的。

        2.在字符串中查找某一特定子串并返回子串在原字符串中的位置：
        Position=INDEX(target,value);
        与FIND功能基本一样，唯一的区别是不包含modifiers,startpos选项。

pingguzh 发表于 2012-12-14 11:24
用find函数和index函数有什么区别吗？

find 是index的升级版。

/* use PROC FORMAT */
data test;
input ca $;
datalines;
PLC
LC
CC
RC
LC
BC
LMM
cancer
; run;
proc print data=test_data; title 'test'; run;

proc format;
   value $CType  'PLC' = 'c22'
                                'LC'  = 'c22'
                                                                'CC' = 'c18-20'
                                                                'RC' = 'c18-20'
                                                                'LUC' = 'c33'
                                                            'BC' = 'c33'
                                                                'LMM' = 'c33'
                                                                Other = 'c20';
run;

data test_2;
   set test_data;
   cid = ca;
   format cid $CType.;
run;