数据集中观测再重新生成变量与值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我目前有这样一个数据集，

根据Appl_ID将A_cate，B_cate两个大分类拆分成几个子分类，Attr1、Attr2是A_cate下的两个子分类，其Num值分别是24和20，如果是Attr1值，则Attr2的值为缺失。B_cate分类下Bttr1的Num值和Level值分别是10和0.88，Bttr2类似。
希望产生如下的数据集，

高手们，帮帮忙，先谢了哈~~

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：生成变量 数据集 Level appl Leve

1. data a;
   
2.         input A_cate :$30. B_cate :$30.;
   
3.         cards;
   
4.         cate_Attr1_Num_24 cate_Bttr1_Num_10_Level_0.88
   
5.         cate_Attr2_Num_20 cate_Bttr2_Num_8_Level_0.66
   
6.         ;
   
7. run;
   
8. 
   
9. data b;
   
10.         set a;
    
11.         if scan(A_cate,2,"_")="Attr1" then Attr1_num=scan(A_cate,-1,"_");else
    
12.         if scan(A_cate,2,"_")="Attr2" then Attr2_num=scan(A_cate,-1,"_");
    
13. 
    
14.         if scan(B_cate,2,"_")="Bttr1" then do;
    
15.                 Bttr1_num=scan(B_cate,-3,"_");
    
16.                 Bttr1_level=scan(B_cate,-1,"_");
    
17.         end;else
    
18.         if scan(B_cate,2,"_")="Bttr2" then do;
    
19.                 Bttr2_num=scan(B_cate,-3,"_");
    
20.                 Bttr2_level=scan(B_cate,-1,"_");
    
21.         end;
    
22. 
    
23. run;

复制代码

字符串处理，
不错的例子

太棒了，非常感谢~~~哈哈

freerunning_sky 发表于 2014-7-17 09:16

太棒了，非常感谢~~~哈哈

freerunning_sky 发表于 2014-7-17 09:16

您好，再向您请教一下。假如A_cate里面的属性有很多，比如Attr1，Attr2，Attr3，Attr4...
就不想总是if scan(A_cate,2,"_")="Attr1" then Attr1_num=scan(A_cate,-1,"_");这样进行判断，因为很产生很多重复代码，想像类似下面这样：
%let AttrList=Attr1 Attr2 Attr3 Attr4;
data a_output;
        set a_input;
        array AttrList{*} &AttrList;
                do i=1 to dim(AttrList);
                if scan(A_cate,2,"_")="AttrList{i}" then do;
                                        Comm{i}_num=scan(A_cate,4,"_")*1;
                                        Comm{i}_level=scan(A_cate,-3,"_")*1;
                                        Comm{i}_level1=scan(A_cate,-1,"_")*1;
                                   end;
                end;
但是上面的代码报错，Comm{i}_num数组这样写不行，希望您给个类似的程序可以实现这个功能，非常感谢~~

gaotao0727 发表于 2014-7-21 15:49
您好，再向您请教一下。假如A_cate里面的属性有很多，比如Attr1，Attr2，Attr3，Attr4...
就不想总是if  ...

1. data a;
   
2.         input A_cate :$30. B_cate :$50. appl_id;
   
3.         cards;
   
4.         cate_Attr1_Num_24_level_0.77 cate_Bttr2_Num_10_Level_0.88_level1_0.99 1
   
5.         cate_Attr2_Num_20_level_0.76 cate_Bttr3_Num_8_Level_0.66_level1_0.88 2
   
6.                 cate_Attr3_Num_19_level_0.75 cate_Bttr4_Num_7_level_0.55_level1_0.77 3
   
7.                 cate_Attr2_Num_18_level_0.74 cate_Bttr4_Num_6_level_0.44_level1_0.66 4
   
8.         ;
   
9. run;
   
10. 
    
11. %macro trans;
    
12. data b;
    
13.         set a;
    
14.         %do i=1 %to 4;
    
15.                 if scan(A_cate,2,"_")="Attr&i" then do;
    
16.                         Attr&i._num=scan(A_cate,-3,"_")*1;
    
17.                         Attr&i._level=scan(A_cate,-1,"_")*1;
    
18.                 end;else
    
19.         %end;
    
20.         ;
    
21.         %do i=1 %to 4;
    
22.                 if scan(B_cate,2,"_")="Bttr&i" then do;
    
23.                         Bttr&i._num=scan(B_cate,-5,"_")*1;
    
24.                         Bttr&i._level=scan(B_cate,-3,"_")*1;
    
25.                         Bttr&i._level1=scan(B_cate,-1,"_")*1;
    
26.                 end;else
    
27.         %end;
    
28.         ;
    
29. run;
    
30. %mend;
    
31. %trans;

复制代码

gaotao0727 发表于 2014-7-21 15:49
您好，再向您请教一下。假如A_cate里面的属性有很多，比如Attr1，Attr2，Attr3，Attr4...
就不想总是if  ...

1. data a;
   
2.         input A_cate :$30. B_cate :$50. appl_id;
   
3.         cards;
   
4.         cate_Attr1_Num_24_level_0.77 cate_Bttr2_Num_10_Level_0.88_level1_0.99 1
   
5.         cate_Attr2_Num_20_level_0.76 cate_Bttr3_Num_8_Level_0.66_level1_0.88 2
   
6.                 cate_Attr3_Num_19_level_0.75 cate_Bttr4_Num_7_level_0.55_level1_0.77 3
   
7.                 cate_Attr2_Num_18_level_0.74 cate_Bttr4_Num_6_level_0.44_level1_0.66 4
   
8.         ;
   
9. run;
   
10. 
    
11. 
    
12. %Let Lpre=A B;
    
13. %let Lvalue=NUM LEVEL LEVEL1;
    
14. option mprint=yes;
    
15. %macro trans;
    
16. data b;
    
17.         set a;
    
18.         keep appl_id name value;
    
19.         %do i=1 %to 2;
    
20.                 %let pre=%scan(&Lpre.,&i.," ");
    
21.                 %do j=1 %to 3;
    
22.                         %let value=%scan(&Lvalue.,&j.," ");
    
23.                         index=index(upcase(&pre._cate),"&value.");
    
24.                         if index>0 then do;
    
25.                                 tmp_name=upcase(scan(&pre._cate,2,"_"));
    
26.                                 name=compress(tmp_name||"_&value.");
    
27.                                 value=scan(substr(&pre._cate,index,length(&pre._cate)-index+1),2,"_");
    
28.                                 output;
    
29.                         end;
    
30.                 %end;
    
31.                 ;
    
32.         %end;
    
33.         proc sort;by appl_id;
    
34. run;
    
35. proc transpose data=b out=c(drop=_name_);
    
36.         by appl_id;
    
37.         id name;
    
38.         var value;
    
39. run;
    
40. %mend;
    
41. %trans;

复制代码

freerunning_sky 发表于 2014-7-21 17:58

代码写的真漂漂啊，非常感谢~~~

代码好刘碧的感觉但是为什么运行不了