SAS基础宏之15：GetCountForSeq

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

就是用来数一个序列的重复次数的
在Matlab和R中，这个问题挺简单的
在SAS里就稍微复杂点，因为SAS只能在Data步里从上至下依次的循环

1. %macro GetCountForSeq(SourceTable,TargetTable,ByFactors,InputVar,OutputVar);
   
2. 
   
3. /**********************************************************************/
   
4. /* 此宏的作用是计算某数据表中指定变量的重复次数，即连续出现同一值的次 */
   
5. /* 数。其中，SourceTable是原始表格；TargetTable是结果表格；ByFactors  */
   
6. /* 是分组变量；InputVar是目标变量，可设置为多个，用空格分隔；Output_  */
   
7. /* Var是结果变量，其值为该观测值在序列中重复的次数，若不指定，则为原  */
   
8. /* 目标变量后加后缀_Cnt。注意，在运行本宏之前需要将原始表格进行合适的 */
   
9. /* 排序。                                                             */
   
10. /*                                                                    */
    
11. /* 最终得到包含原数据表中指定变量的重复次数的结果表格。               */
    
12. /*                                                                    */
    
13. /*                                      Created on 2012.12.21         */
    
14. /*                                      Modified on 2013.3.20         */
    
15. /**********************************************************************/
    
16. 
    
17. /* 检查TargetTable的存在性，若不存在则设为&SourceTable */
    
18. %if &TargetTable EQ %STR() %then %let TargetTable=&SourceTable;
    
19. 
    
20. /* 检查ByFactors的存在性 */
    
21. %if &ByFactors NE %STR() %then %do;
    
22.         %ChkVar(SourceTable=&SourceTable,InputVar=&ByFactors,FlagVarExists=GCFS_FlagVarExists1);
    
23. 
    
24.         %if %SYSFUNC(FIND(&GCFS_FlagVarExists1,0)) NE 0 %then %do;
    
25.                 %put ERROR: The ByFactors "%SCAN(&ByFactors,%SYSFUNC(FIND(&GCFS_FlagVarExists1,0)))" does not exist in SourceTable, please check it again.;
    
26.                 %goto exit;
    
27.         %end;
    
28. %end;
    
29. 
    
30. /* 检查InputVar的存在性 */
    
31. %ChkVar(SourceTable=&SourceTable,InputVar=&InputVar,FlagVarExists=GCFS_FlagVarExists2);
    
32. 
    
33. %if %SYSFUNC(FIND(&GCFS_FlagVarExists2,0)) NE 0 %then %do;
    
34.         %put ERROR: The InputVar "%SCAN(&InputVar,%SYSFUNC(FIND(&GCFS_FlagVarExists2,0)))" does not exist in SourceTable, please check it again.;
    
35.         %goto exit;
    
36. %end;
    
37. 
    
38. /* 拆分InputVar */
    
39. %SeparateString(InputString=&InputVar,OutputString=GCFS_InputVar);
    
40. 
    
41. /* 检查OutputVar的合法性 */
    
42. %if &OutputVar NE %STR() AND %SYSFUNC(COUNT(&InputVar,%STR( ))) NE %SYSFUNC(COUNT(&OutputVar,%STR( ))) %then %do;
    
43.         %put ERROR: The number of InputVar and OutputVar should be equal, please check it again.;
    
44.         %goto exit;
    
45. %end;
    
46. 
    
47. /* 若OutputVar为空，则设置为InputVar后加_Cnt后缀 */
    
48. %if &OutputVar EQ %STR() %then %do;
    
49.         %let OutputVar=%SYSFUNC(TRANWRD(&InputVar,%STR( ),_Cnt%STR( )))_Cnt;
    
50. %end;
    
51. 
    
52. /* 拆分OutputVar */
    
53. %SeparateString(InputString=&OutputVar,OutputString=GCFS_OutputVar);
    
54. 
    
55. /* 开始进行计算 */
    
56. /* 第一步：生成新的分组变量 */
    
57. data &TargetTable;
    
58.         set &SourceTable;
    
59.         GCFS_OrderVar=_N_;
    
60. run;
    
61. 
    
62. %do GCFS_i=1 %to &GCFS_InputVar_Num;
    
63.         data &TargetTable;
    
64.                 set &TargetTable;
    
65.                 retain GCFS_VarNo_&GCFS_i GCFS_ByFactors_&GCFS_i;
    
66.                 by &ByFactors &&GCFS_InputVar_Var&GCFS_i NOTSORTED;
    
67.                 if first.&&GCFS_InputVar_Var&GCFS_i then GCFS_VarNo_&GCFS_i.=1;
    
68.                 else GCFS_VarNo_&GCFS_i.+1;
    
69.                 if _N_=1 and first.&&GCFS_InputVar_Var&GCFS_i.=1 then GCFS_ByFactors_&GCFS_i.=1;
    
70.                 else if first.&&GCFS_InputVar_Var&GCFS_i then GCFS_ByFactors_&GCFS_i.+1;
    
71.         run;
    
72. %end;
    
73. 
    
74. /* 第二步：得到计数变量 */
    
75. %do GCFS_j=1 %to &GCFS_InputVar_Num;
    
76.         proc sort data=&TargetTable;
    
77.                 by GCFS_ByFactors_&GCFS_j DESCENDING GCFS_VarNo_&GCFS_j.;
    
78.         run;
    
79. 
    
80.         data &TargetTable(drop=GCFS_ByFactors_&GCFS_j GCFS_VarNo_&GCFS_j.);
    
81.                 set &TargetTable;
    
82.                 by GCFS_ByFactors_&GCFS_j;
    
83.                 retain &&GCFS_OutputVar_Var&GCFS_j;
    
84.                 if first.GCFS_ByFactors_&GCFS_j then &&GCFS_OutputVar_Var&GCFS_j=GCFS_VarNo_&GCFS_j;
    
85.         run;
    
86. %end;
    
87. 
    
88. /* 删除临时生成的OrderVar */
    
89. proc sort data=&TargetTable out=&TargetTable(drop=GCFS_OrderVar);
    
90.         by GCFS_OrderVar;
    
91. run;
    
92. 
    
93. %exit:
    
94. %mend;
    
95. 
    
96. 
    
97. %macro Demo();
    
98. 
    
99. %let SourceTable=RankOfStk;
    
100. %let TargetTable=RankOfStk1;
     
101. %let ByFactors=;
     
102. %let InputVar=PE_Rank;                /* 需要处理的目标变量，可设置为多个，用空格分隔 */
     
103. %let OutputVar=;
     
104. %GetCountForSeq(&SourceTable,&TargetTable,&ByFactors,&InputVar,&OutputVar);
     
105. 
     
106. %mend;

复制代码

扫码加我 拉你入群

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

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

分享0 收藏4 回帖

关键词：sas基础 Count etc For Get 数据表

学习了。等暑假从头到尾好好学一遍。