SAS基础宏之8：GetMissNum-经管之家官网！

人大经济论坛-经管之家 收藏本站
搜索
经济学 管理学 金融学 统计学
您当前的位置> 软件培训>>

SAS软件培训

>>

SAS基础宏之8：GetMissNum

SAS基础宏之8：GetMissNum

发布：playmore | 分类：SAS软件培训

搜索

关于本站

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

获取电子版《CDA一级教材》

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

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

市场营销

人力资源

国际贸易

TOP热门关键词

专题页面精选

这个宏用来统计数据集中指定变量的缺失值数量，支持数值变量和字符变量最后都汇到一张结果表格中之前我用的是把表格转置后，用nmiss和cmiss求横向的数组的缺失值这样代码比较简单，但是后来发现proctranspose实在是太 ...
免费学术公开课,扫码加入
这个宏用来统计数据集中指定变量的缺失值数量，支持数值变量和字符变量
最后都汇到一张结果表格中
之前我用的是把表格转置后，用nmiss和cmiss求横向的数组的缺失值
这样代码比较简单，但是后来发现proc transpose实在是太慢了，而且耗资源
这下改了下，直接用sql对列进行计算了，不需要转置了
  1. %macro GetMissNum(SourceTable,TargetTable,InputVar);
  2. /**********************************************************************/
  3. /* 此宏的作用是统计原表中不同变量的缺失值数量。其中SourceTable是原始 */
  4. /* 表格，SourceTable是结果表格；TargetTable是结果表格；InputVar是原始 */
  5. /* 表格中的变量，可设多个变量，用空格分隔，也可如下设置：=_Numeric_表 */
  6. /* 示统计全部数值型变量，=_Character_表示统计全部字符型变量，=_All_表 */
  7. /* 示统计全部变量。 */
  8. /* */
  9. /* 最终结果表格中包含所有指定变量的名称、类型和相应的缺失值数量。 */
  10. /* */
  11. /* Created on 2013.5.8 */
  12. /* Modified on 2013.5.8 */
  13. /**********************************************************************/

  15. /* 检查TargetTable的存在性 */
  16. %if &TargetTable EQ %STR() %then %do;
  17. %put ERROR: The TargetTable should not be blank, please check it again.;
  18. %goto exit;
  19. %end;

  21. /* 检查InputVar的合法性 */
  22. %if %UPCASE(&InputVar) NE _NUMERIC_ AND %UPCASE(&InputVar) NE _CHARACTER_ AND %UPCASE(&InputVar) NE _ALL_ %then %do;
  23. %ChkVar(SourceTable=&SourceTable,InputVar=&InputVar,FlagVarExists=GMN_FlagVarExists);

  25. %if %SYSFUNC(FIND(&GMN_FlagVarExists,0)) NE 0 %then %do;
  26. %put ERROR: The InputVar should be _Numeric_, _Character_, _All_ or any variable name in SourceTable, case insensitive and without quotes.;
  27. %put ERROR: The InputVar "%SCAN(&InputVar,%SYSFUNC(FIND(&GMN_FlagVarExists,0)))" does not exist in SourceTable, please check it again.;
  28. %goto exit;
  29. %end;
  30. %end;

  32. %if %UPCASE(&InputVar) EQ _NUMERIC_ %then %do;
  33. proc contents data=&SourceTable position out=GMN_VarList(keep=name type varnum) noprint;
  34. run;

  36. /* 检查数值型变量是否存在 */
  37. %ChkValue(SourceTable=GMN_VarList,
  38. InputVar=type,
  39. Value=1,
  40. FlagValueExists=GMN_FlagNumVarExists);

  42. %if &GMN_FlagNumVarExists GT 0 %then %do;
  43. proc sql noprint;
  44. select NAME into :GMN_NumVarList separated by ' '
  45. from GMN_VarList
  46. where TYPE EQ 1;
  47. quit;

  49. /* 化简原始表格 */
  50. data &TargetTable(keep=&GMN_NumVarList drop=GMN_i);
  51. set &SourceTable;
  52. array VarList &GMN_NumVarList;
  53. do GMN_i=1 to dim(VarList);
  54. if VarList{GMN_i} NE . then VarList{GMN_i}=0;
  55. else VarList{GMN_i}=1;
  56. end;
  57. run;

  59. %GetStatsForTable(SourceTable=&TargetTable,
  60. TargetTable=&TargetTable,
  61. ByFactors=,
  62. InputVar=&GMN_NumVarList,
  63. InputVarType=,
  64. OutputVarType=,
  65. Weight=,
  66. Statistic=SUM);

  68. proc transpose data=&TargetTable out=&TargetTable;
  69. var &GMN_NumVarList;
  70. run;

  72. data &TargetTable(rename=(_NAME_=VarName _LABEL_=VarLabel COL1=MissNum));
  73. retain _NAME_ _LABEL_ VarType COL1;
  74. set &TargetTable;
  75. VarType='N';
  76. run;
  77. %end;
  78. %else %do;
  79. %put ERROR: There is no numeric variable existed in SourceTable, please check it again.;
  80. %goto exit;
  81. %end;
  82. %end;
  83. %else %if %UPCASE(&InputVar) EQ _CHARACTER_ %then %do;
  84. proc contents data=&SourceTable position out=GMN_VarList(keep=name type varnum) noprint;
  85. run;

  87. /* 检查字符型变量是否存在 */
  88. %ChkValue(SourceTable=GMN_VarList,
  89. InputVar=type,
  90. Value=2,
  91. FlagValueExists=GMN_FlagCharVarExists);

  93. %if &GMN_FlagCharVarExists GT 0 %then %do;
  94. proc sql noprint;
  95. select NAME,STRIP(NAME)||'_Temp' into :GMN_CharVarList separated by ' ',:GMN_CharVarList_Temp separated by ' '
  96. from GMN_VarList
  97. where TYPE EQ 2;
  98. quit;

  100. /* 化简原始表格 */
  101. data &TargetTable(keep=&GMN_CharVarList_Temp drop=GMN_j);
  102. set &SourceTable;
  103. array VarList &GMN_CharVarList;
  104. array VarList_Temp &GMN_CharVarList_Temp;
  105. do GMN_j=1 to dim(VarList);
  106. if VarList{GMN_j} NE "" then VarList_Temp{GMN_j}=0;
  107. else VarList_Temp{GMN_j}=1;
  108. end;
  109. run;

  111. %GetStatsForTable(SourceTable=&TargetTable,
  112. TargetTable=&TargetTable,
  113. ByFactors=,
  114. InputVar=&GMN_CharVarList_Temp,
  115. InputVarType=,
  116. OutputVarType=,
  117. Weight=,
  118. Statistic=SUM);

  120. proc transpose data=&TargetTable out=&TargetTable;
  121. var &GMN_CharVarList_Temp;
  122. run;

  124. data &TargetTable(rename=(_NAME_=VarName _LABEL_=VarLabel COL1=MissNum));
  125. retain _NAME_ _LABEL_ VarType COL1;
  126. set &TargetTable;
  127. VarType='C';
  128. _NAME_=SUBSTR(_NAME_,1,LENGTH(_NAME_)-5);
  129. run;
  130. %end;
  131. %else %do;
  132. %put ERROR: There is no character variable existed in SourceTable, please check it again.;
  133. %goto exit;
  134. %end;
  135. %end;
  136. %else %do;
  137. proc contents data=&SourceTable position out=GMN_VarList(keep=name type varnum) noprint;
  138. run;

  140. /* 筛选指定的变量 */
  141. %if %UPCASE(&InputVar) NE _ALL_ %then %do;
  142. %let InputVar_Comma=%PrxChange(InputString=&InputVar,PrxString=s/(\w+)/'$1'/); /* 给InputVar中的代码加引号 */
  143. %let InputVar_Comma=%SYSFUNC(TRANSLATE(&InputVar_Comma,%STR(,),%STR( ))); /* 替换InputVar中的空格为逗号 */

  145. proc sql noprint;
  146. create table GMN_VarList as
  147. select * from GMN_VarList
  148. where Name in (&InputVar_Comma)
  149. order by Name;
  150. quit;
  151. %end;

  153. /* 检查数值型变量是否存在 */
  154. %ChkValue(SourceTable=GMN_VarList,
  155. InputVar=type,
  156. Value=1,
  157. FlagValueExists=GMN_FlagNumVarExists);

  159. /* 检查字符型变量是否存在 */
  160. %ChkValue(SourceTable=GMN_VarList,
  161. InputVar=type,
  162. Value=2,
  163. FlagValueExists=GMN_FlagCharVarExists);

  165. %if &GMN_FlagNumVarExists GT 0 %then %do;
  166. proc sql noprint;
  167. select NAME into :GMN_NumVarList separated by ' '
  168. from GMN_VarList
  169. where TYPE EQ 1;
  170. quit;

  172. /* 化简原始表格 */
  173. data GMN_NumMiss(keep=&GMN_NumVarList drop=GMN_k);
  174. set &SourceTable;
  175. array VarList &GMN_NumVarList;
  176. do GMN_k=1 to dim(VarList);
  177. if VarList{GMN_k} NE . then VarList{GMN_k}=0;
  178. else VarList{GMN_k}=1;
  179. end;
  180. run;

  182. %GetStatsForTable(SourceTable=GMN_NumMiss,
  183. TargetTable=GMN_NumMiss,
  184. ByFactors=,
  185. InputVar=&GMN_NumVarList,
  186. InputVarType=,
  187. OutputVarType=,
  188. Weight=,
  189. Statistic=SUM);

  191. proc transpose data=GMN_NumMiss out=GMN_NumMiss;
  192. var &GMN_NumVarList;
  193. run;

  195. data GMN_NumMiss(rename=(_NAME_=VarName _LABEL_=VarLabel COL1=MissNum));
  196. retain _NAME_ _LABEL_ VarType COL1;
  197. set GMN_NumMiss;
  198. VarType='N';
  199. run;
  200. %end;
  201. %if &GMN_FlagCharVarExists GT 0 %then %do;
  202. proc sql noprint;
  203. select NAME,STRIP(NAME)||'_Temp' into :GMN_CharVarList separated by ' ',:GMN_CharVarList_Temp separated by ' '
  204. from GMN_VarList
  205. where TYPE EQ 2;
  206. quit;

  208. /* 化简原始表格 */
  209. data GMN_CharMiss(keep=&GMN_CharVarList_Temp drop=GMN_l);
  210. set &SourceTable;
  211. array VarList &GMN_CharVarList;
  212. array VarList_Temp &GMN_CharVarList_Temp;
  213. do GMN_l=1 to dim(VarList);
  214. if VarList{GMN_l} NE "" then VarList_Temp{GMN_l}=0;
  215. else VarList_Temp{GMN_l}=1;
  216. end;
  217. run;

  219. %GetStatsForTable(SourceTable=GMN_CharMiss,
  220. TargetTable=GMN_CharMiss,
  221. ByFactors=,
  222. InputVar=&GMN_CharVarList_Temp,
  223. InputVarType=,
  224. OutputVarType=,
  225. Weight=,
  226. Statistic=SUM);

  228. proc transpose data=GMN_CharMiss out=GMN_CharMiss;
  229. var &GMN_CharVarList_Temp;
  230. run;

  232. data GMN_CharMiss(rename=(_NAME_=VarName _LABEL_=VarLabel COL1=MissNum));
  233. retain _NAME_ _LABEL_ VarType COL1;
  234. set GMN_CharMiss;
  235. VarType='C';
  236. _NAME_=SUBSTR(_NAME_,1,LENGTH(_NAME_)-5);
  237. run;
  238. %end;

  240. data &TargetTable;
  241. set
  242. %if &GMN_FlagNumVarExists GT 0 %then %do;
  243. GMN_NumMiss
  244. %end;
  245. %if &GMN_FlagCharVarExists GT 0 %then %do;
  246. GMN_CharMiss
  247. %end;
  248. ;
  249. run;
  250. %end;

  252. /* 删除不必要的表格 */
  253. proc datasets lib=work nolist;
  254. delete GMN_:;
  255. quit;

  257. %exit:
  258. %mend;


  261. %macro Demo();

  263. %let SourceTable=Cars;
  264. %let TargetTable=MissNum;
  265. %let InputVar=Cylinders; /* =_Numeric_表示统计全部数值型变量，=_Character_表示统计全部字符型变量，=_All_表示统计全部变量，大小写不敏感 */
  266. %GetMissNum(&SourceTable,&TargetTable,&InputVar);

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

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

上一篇 | 企业生命周期-爱迪斯
下一篇 | 关于能源消费量统计结果的疑问
SAS软件培训  精彩帖子推荐 更多

您可能感兴趣的文章

本站推荐的文章

人气文章

本文标题：SAS基础宏之8：GetMissNum

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

1.凡人大经济论坛-经管之家转载的文章,均出自其它媒体或其他官网介绍,目的在于传递更多的信息,并不代表本站赞同其观点和其真实性负责；
2.转载的文章仅代表原创作者观点,与本站无关。其原创性以及文中陈述文字和内容未经本站证实,本站对该文以及其中全部或者部分内容、文字的真实性、完整性、及时性，不作出任何保证或承若；
3.如本站转载稿涉及版权等问题,请作者及时联系本站,我们会及时处理。
学术培训 |认证培训 |注册会计师 |市场营销 |人力资源 |国际贸易 |学报
数据分析师 人大经济论坛 大学 专业 手机版

为做大做强人大经济论坛，本站接受风险投资商咨询，请联系（010-62719935）
京ICP备11001960号 京ICP证090565号 京公网安备1101084107号 论坛法律顾问：王进律师 知识产权保护声明 免责及隐私声明
邮箱：service@pinggu.org
合作咨询电话：(010)62719935 广告合作电话：010-68456523 13661292478 刘老师
投诉电话：(010)68466864 不良信息处理电话：13661292478

联系客服
值班时间：工作日（9:00--18:00）