【每日一考】怎么编写一个宏，把一个变量的最大5个值和最小五个值列出来？

4801

收藏 2014-12-29

一个数据集如下
data test;
input x y z ;
cards;
1 2 3
4 5 6
7 8 9
10 11 12
13 14 15
16 17 18
19 20 21
22 23 24
25 26 27
28 29 30
31 32 33
34 35 36
;
run;

如何编一个宏程序，把x的最大五个值（34、31、28、25、22）和最小五个值（1、4、7、10、13）选出来

扩展：一个宏程序把x、y、z各自的最大最小五个值找出来，既x最大五个值为····，最小五个值为·····，y最大五个值为····，最小五个值为····

扫码加我拉你入群

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

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

全部回复

bidgrqc

2014-12-29 10:37:38

如果在excel里面max和mix就搞定了，不知道为什么还要编宏，而且你还要设定范围，不能通用，叫做事倍功半。不如直接用这个函数，可以用于数组和排列。

扫码加我拉你入群

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

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

teqel

2014-12-29 10:49:23

参考Cody’s Data Cleaning Techniques Using SAS pp.34-35

扫码加我拉你入群

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

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

Tigflanker

2014-12-29 11:11:46

Try this:

复制代码

扫码加我拉你入群

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

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

heguima

2014-12-29 11:51:50

Tigflanker 发表于 2014-12-29 11:11
Try this:

amazing

，跟我之前想的先把X排序，再transpose，再选前五个和后五个思想差不多，不过这位大神的实现方法简单多了，而且能一次性实现所有变量。大家还有其他思路也可以一起讨论一下，交流才能进步！

扫码加我拉你入群

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

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

teqel

2014-12-29 12:17:47

heguima 发表于 2014-12-29 11:51
amazing，跟我之前想的先把X排序，再transpose，再选前五个和后五个思想差不多，不过这位大神的 ...

transpose慢，而且数据多了可能不行

扫码加我拉你入群

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

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

点击查看更多内容…

823954913

2014-12-29 17:11:12

data test;
input x y z ;
cards;
7 8 9
34 35 36
10 11 12
1 2 3
19 20 21
22 23 24
4 5 6
25 26 27
13 14 15
28 29 30
16 17 18
31 32 33
;
run;

proc sql outobs=5 noprint;
create table top5 as select * from test order by x desc;
quit;

proc sql outobs=5 noprint;
create table low5 as select * from test order by x ;
quit;

扫码加我拉你入群

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

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

mingfeng07

2014-12-29 20:54:49

复制代码

扫码加我拉你入群

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

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

jl60156

2014-12-30 00:00:56

%macro minmax5(dsin=,dsout=,var=, n=5);
proc sort data=&dsin out=temp1(keep=&var rename=(&var=&var._max5) where=(not missing(&var._max5))) nodupkey;
by descending &var;
run;
proc sort data=&dsin out=temp2(keep=&var rename=(&var=&var._min5) where=(not missing(&var._min5))) nodupkey;
by &var;
run;
data &dsout;
set temp1 (obs=&n);
set temp2 (obs=&n);
run;
%mend;

扫码加我拉你入群

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

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

heguima

2014-12-30 09:07:10

mingfeng07 发表于 2014-12-29 20:54

，小小的建议，可以把过程中的生成的文件删掉，只留最后结果文件。其实这道题有个小陷阱，大家都没考虑有文本变量的情况

扫码加我拉你入群

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

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

heguima

2014-12-30 09:11:40

jl60156 发表于 2014-12-30 00:00
%macro minmax5(dsin=,dsout=,var=, n=5);
proc sort data=&dsin out=temp1(keep=&var rename=(&var=&var. ...

要是变量多的话就不太好用了，比如同时要求X,Y,Z的最大五个和最小五个，那就要运行三次，八楼那位仁兄的思路很不错

扫码加我拉你入群

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

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

mingfeng07

2014-12-30 09:11:50

heguima 发表于 2014-12-30 09:07
，小小的建议，可以把过程中的生成的文件删掉，只留最后结果文件

恩，有道理，在循环最后加一个：

复制代码

扫码加我拉你入群

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

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

heguima

2014-12-30 10:23:14

mingfeng07 发表于 2014-12-30 09:11
恩，有道理，在循环最后加一个：

有时我们更希望能加上ID值，如图，看看最大最小五个值所对应的ID号。
有如下方法：
data test;
input id$ x y z ;
cards;
201 2 3 1
202 4 8 6
309 4 3 6
205 4 6 8
307 9 3 1
401 11 24 65
504 47 95 21
361 78 4 2
804 6 47 8
631 14 13 47
99 14 18 64
85 111 23 47
;
run;
ods output ExtremeObs=race_e;
proc univariate data=test nextrobs=5;
var x y z;
id id;
run;
ods output close;

这种方法同样是变量多不方便，不知仁兄能否改进你的宏添加ID号进去

附件列表

11.JPG

原图尺寸 18.08 KB

扫码加我拉你入群

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

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

mingfeng07

2014-12-30 13:41:34

heguima 发表于 2014-12-30 10:23
有时我们更希望能加上ID值，如图，看看最大最小五个值所对应的ID号。
有如下方法：
data test;

复制代码

扫码加我拉你入群

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

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

823954913

2014-12-30 14:35:21

复制代码

扫码加我拉你入群

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

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

heguima

2014-12-31 08:59:26

mingfeng07 发表于 2014-12-30 13:41

还是那样的问题，如果要求的变量有很多（例如几百个），那么就不太方便了，用个循环的话就会好很多

扫码加我拉你入群

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

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

heguima

2014-12-31 08:59:57

823954913 发表于 2014-12-30 14:35

还是那样的问题，如果要求的变量有很多（例如几百个），那么就不太方便了，用个循环的话就会好很多

扫码加我拉你入群

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

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

heguima

2014-12-31 09:01:55

mingfeng07 发表于 2014-12-30 13:41

感谢各位表达自己的思路，【每日一考】为大家提供SAS在运用中遇到的问题，在解决问题的同时共同学习

扫码加我拉你入群

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

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

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群