SAS基础宏之15：GetCountForSeq-经管之家官网！

经济学管理学金融学统计学

您当前的位置> 软件培训>>

SAS基础宏之15：GetCountForSeq

人大经济论坛-经管之家：分享大学、考研、论文、会计、留学、数据、经济学、金融学、管理学、统计学、博弈论、统计年鉴、行业分析包括等相关资源。
经管之家是国内活跃的在线教育咨询平台!

完整电子版已上线CDA网校，累计已有10万+在读~ 教材严格按考试大纲编写，适合CDA考生备考，也适合业务及数据分析岗位的从业者提升自我。

TOP热门关键词

专题页面精选

就是用来数一个序列的重复次数的在Matlab和R中，这个问题挺简单的在SAS里就稍微复杂点，因为SAS只能在Data步里从上至下依次的循环%macroGetCountForSeq(SourceTable,TargetTable,ByFactors,InputVar,OutputVar);/*** ...

免费学术公开课,扫码加入

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

%macro GetCountForSeq(SourceTable,TargetTable,ByFactors,InputVar,OutputVar);
/**********************************************************************/
/* 此宏的作用是计算某数据表中指定变量的重复次数，即连续出现同一值的次 */
/* 数。其中，SourceTable是原始表格；TargetTable是结果表格；ByFactors*/
/* 是分组变量；InputVar是目标变量，可设置为多个，用空格分隔；Output_*/
/* Var是结果变量，其值为该观测值在序列中重复的次数，若不指定，则为原*/
/* 目标变量后加后缀_Cnt。注意，在运行本宏之前需要将原始表格进行合适的 */
/* 排序。 */
/* */
/* 最终得到包含原数据表中指定变量的重复次数的结果表格。 */
/* */
/* Created on 2012.12.21 */
/* Modified on 2013.3.20 */
/**********************************************************************/
/* 检查TargetTable的存在性，若不存在则设为&SourceTable */
%if &TargetTable EQ %STR() %then %let TargetTable=&SourceTable;
/* 检查ByFactors的存在性 */
%if &ByFactors NE %STR() %then %do;
%ChkVar(SourceTable=&SourceTable,InputVar=&ByFactors,FlagVarExists=GCFS_FlagVarExists1);
%if %SYSFUNC(FIND(&GCFS_FlagVarExists1,0)) NE 0 %then %do;
%put ERROR: The ByFactors "%SCAN(&ByFactors,%SYSFUNC(FIND(&GCFS_FlagVarExists1,0)))" does not exist in SourceTable, please check it again.;
%goto exit;
%end;
%end;
/* 检查InputVar的存在性 */
%ChkVar(SourceTable=&SourceTable,InputVar=&InputVar,FlagVarExists=GCFS_FlagVarExists2);
%if %SYSFUNC(FIND(&GCFS_FlagVarExists2,0)) NE 0 %then %do;
%put ERROR: The InputVar "%SCAN(&InputVar,%SYSFUNC(FIND(&GCFS_FlagVarExists2,0)))" does not exist in SourceTable, please check it again.;
%goto exit;
%end;
/* 拆分InputVar */
%SeparateString(InputString=&InputVar,OutputString=GCFS_InputVar);
/* 检查OutputVar的合法性 */
%if &OutputVar NE %STR() AND %SYSFUNC(COUNT(&InputVar,%STR( ))) NE %SYSFUNC(COUNT(&OutputVar,%STR( ))) %then %do;
%put ERROR: The number of InputVar and OutputVar should be equal, please check it again.;
%goto exit;
%end;
/* 若OutputVar为空，则设置为InputVar后加_Cnt后缀 */
%if &OutputVar EQ %STR() %then %do;
%let OutputVar=%SYSFUNC(TRANWRD(&InputVar,%STR( ),_Cnt%STR( )))_Cnt;
%end;
/* 拆分OutputVar */
%SeparateString(InputString=&OutputVar,OutputString=GCFS_OutputVar);
/* 开始进行计算 */
/* 第一步：生成新的分组变量 */
data &TargetTable;
set &SourceTable;
GCFS_OrderVar=_N_;
run;
%do GCFS_i=1 %to &GCFS_InputVar_Num;
data &TargetTable;
set &TargetTable;
retain GCFS_VarNo_&GCFS_i GCFS_ByFactors_&GCFS_i;
by &ByFactors &&GCFS_InputVar_Var&GCFS_i NOTSORTED;
if first.&&GCFS_InputVar_Var&GCFS_i then GCFS_VarNo_&GCFS_i.=1;
else GCFS_VarNo_&GCFS_i.+1;
if _N_=1 and first.&&GCFS_InputVar_Var&GCFS_i.=1 then GCFS_ByFactors_&GCFS_i.=1;
else if first.&&GCFS_InputVar_Var&GCFS_i then GCFS_ByFactors_&GCFS_i.+1;
run;
%end;
/* 第二步：得到计数变量 */
%do GCFS_j=1 %to &GCFS_InputVar_Num;
proc sort data=&TargetTable;
by GCFS_ByFactors_&GCFS_j DESCENDING GCFS_VarNo_&GCFS_j.;
run;
data &TargetTable(drop=GCFS_ByFactors_&GCFS_j GCFS_VarNo_&GCFS_j.);
set &TargetTable;
by GCFS_ByFactors_&GCFS_j;
retain &&GCFS_OutputVar_Var&GCFS_j;
if first.GCFS_ByFactors_&GCFS_j then &&GCFS_OutputVar_Var&GCFS_j=GCFS_VarNo_&GCFS_j;
run;
%end;
/* 删除临时生成的OrderVar */
proc sort data=&TargetTable out=&TargetTable(drop=GCFS_OrderVar);
by GCFS_OrderVar;
run;
%exit:
%mend;
%macro Demo();
%let SourceTable=RankOfStk;
%let TargetTable=RankOfStk1;
%let ByFactors=;
%let InputVar=PE_Rank; /* 需要处理的目标变量，可设置为多个，用空格分隔 */
%let OutputVar=;
%GetCountForSeq(&SourceTable,&TargetTable,&ByFactors,&InputVar,&OutputVar);
%mend;

复制代码

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP

本文关键词：

本文论坛网址：https://bbs.pinggu.org/thread-2402204-1-1.html

上一篇 | [伟大的博弈：华尔街金融帝国的崛起].（美 ...

下一篇 | 求南方科技大学校区建设工程可行性研究报 ...

SAS软件培训精彩帖子推荐更多

您可能感兴趣的文章

本站推荐的文章

人气文章

本文标题：SAS基础宏之15：GetCountForSeq

本文链接网址：https://bbs.pinggu.org/jg/ruanjianpeixun_sasruanjianpeixun_2402204_1.html

1.凡人大经济论坛-经管之家转载的文章,均出自其它媒体或其他官网介绍,目的在于传递更多的信息,并不代表本站赞同其观点和其真实性负责；
2.转载的文章仅代表原创作者观点,与本站无关。其原创性以及文中陈述文字和内容未经本站证实,本站对该文以及其中全部或者部分内容、文字的真实性、完整性、及时性，不作出任何保证或承若；
3.如本站转载稿涉及版权等问题,请作者及时联系本站,我们会及时处理。

SAS基础宏之15：GetCountForSeq-经管之家官网！

SAS软件培训