在分组变量中取值遇到的问题～请帮忙

forturn

假设数据形式如下：

id var1 name

1 32 shsh

1 11 xxkx

1 3 sjdlj

2 65 sald

2 33 ijfi

2 21 sdfjl

2 10 dsflj

3 ... ....

取出每组中var1最大的三个对应的name·～～

cran

Sort by var 1 first, then find the names

yihui

SAS编程我不太熟（觉得用不习惯），我觉得思路应该是这样的吧：

首先按照id和var1排序

proc sort data=...;<br />
by id var1 descending;<br />
run;

然后用一个循环语句取出每组的第一行即可。

forturn

[quote]引用第1楼cran于2006-07-04 12:20发表的“”:

Sort by var 1 first, then find the names[/quote]

我已经排完序的～～

不是只取出第一个，而要把前三个都取出～

结果是汇总的形式 id first_var1 first_name second_var1 second_name third_var1 third_name

yihui

哦，这样啊，那就用循环取出三行数据呗

cran

add a 'where' statement

where _N_<=3

graceli

完整的符合你的要求的程序：最终呈现是 id first_var1 first_name second_var1 second_name third_var1 third_name 数据集是last：

data test; <br />
      input id var1 name $ ; <br />
           datalines; <br />
1   32      shsh<br />
1   11      xxkx<br />
1   3       sjdlj<br />
2   65      sald<br />
2   33      ijfi<br />
2   21      sdfjl<br />
2   10      dsflj <br />
3   34      adfd <br />
3   22      etete<br />
3   12      dfeer<br />
3   4       ssey<br />
3   3       dfdfr<br />
5   12      gergd<br />
5   33      adfa<br />
5   2       dfdee<br />
5   6       adfer<br />
5   77      errrr<br />
5   8       desdfde<br />
8   16      rgergd<br />
8   39      ddadfa<br />
8   24      redfdee<br />
8   61      ddadfer<br />
8   7       dferrrr<br />
8   82      dksdfde<br />
run;<br />
<br />
proc sort  data=test;by  id descending var1 ;run;<br />
proc sql;create table li as select distinct id from test;quit;<br />
proc sql;select count(id) into:num from li;quit;<br />
<br />
%macro li;<br />
%do i=1 %to #<br />
data t;set li(firstobs=&i obs=&i);run;<br />
data _null_;set t;call symput('label',id);run;<br />
data final&i;set test;if id=&label;run;<br />
data final&i;set final&i(obs=3);run;<br />
%end;<br />
data last last1; <br />
 format id 8.  first_var1 8.   first_name $25.  second_var1 8. second_name $25.<br />
third_var1 8. third_name $25.;<br />
run;<br />
<br />
%do i=1 %to #<br />
  %do j=1 %to 3;<br />
data t1;set final&i(firstobs=&j obs=&j);run;<br />
data _null_;set t1;call symput('id',id);call symput('var',var1);call symput('name',name);run;<br />
   %if &j=1 %then %do ;data last1;id=&id;first_var1=&var;first_name="&name";%end;<br />
   %if &j=2 %then %do ;data last1;set last1;second_var1=&var;second_name="&name";%end;<br />
   %if &j=3 %then %do ;data last1;set last1;third_var1=&var;third_name="&name";<br />
  %end;<br />
%end;<br />
proc append base=last data=last1 force;run;<br />
data last; set last; if id='' then delete;run;<br />
%end;<br />
%mend;<br />
%li;

forturn

[quote]引用第6楼graceli于2006-07-04 18:13发表的“Re：在分组变量中取值遇到的问题～请帮忙”:

完整的符合你的要求的程序：最终呈现是 id first_var1 first_name second_var1 second_name third_var1 third_name 数据集是last：

data test;

input id var1 name $ ;

datalines;

.......[/quote]

牛人啊~~

谢谢graceli~~

yihui

论坛来了一位牛人：）

micro@

看不懂这么复杂SAS 那个 %macro 就是传说中的宏么？

不过似乎R可以用更短的程序来完成这个工作

<br />
dat='id var1 name<br />
1   32     shsh<br />
1   11     xxkx<br />
1   3     sjdlj<br />
2   65     sald<br />
2   33     ijfi<br />
2   21     sdfjl<br />
2   10     dsflj <br />
3   34     adfd <br />
3   22     etete<br />
3   12     dfeer<br />
3   4     ssey<br />
3   3     dfdfr<br />
5   12     gergd<br />
5   33     adfa<br />
5   2     dfdee<br />
5   6     adfer<br />
5   77     errrr<br />
5   8     desdfde<br />
8   16     rgergd<br />
8   39     ddadfa<br />
8   24     redfdee<br />
8   61     ddadfer<br />
8   7     dferrrr<br />
8   82     dksdfde<br />
'<br />
dat=read.table(textConnection(dat),head=T);attach(dat)<br />
rslt=as.data.frame(t(<br />
    sapply(<br />
        lapply(unique(id),<br />
            function(x){<br />
                tmp=dat[id==x,];<br />
                tmp[-1][order(tmp$var1,decreasing=T)[1:3],]}),<br />
        function(x)as.vector(t(x)))))<br />
colnames(rslt)=as.vector(rbind(paste("var1",1:3,sep="."),<br />
                               paste("name",1:3,sep=".")))<br />
rslt[1:3*2-1]=apply(rslt[1:3*2-1],2,as.numeric)<br />
(rslt=cbind(id=unique(id),rslt));detach(dat)<br />

forturn

[quote]引用第9楼micro@于2006-07-05 08:39发表的“”:

看不懂这么复杂SAS 那个 %macro 就是传说中的宏么？

不过似乎R可以用更短的程序来完成这个工作

<br />
dat='id var1 name<br />
1   32     shsh<br />
.......[/quote]<br />
这里真是卧虎藏龙~~~<br />
  <br />
崇拜ing~~~

yihui

额地神啊，micro@这个程序语句真是够“节约”的……

abel

如果是我用sas的话，用proc sql，直接使用group 和 having ；

forturn

[quote]引用第12楼abel于2006-07-05 13:30发表的“”:

如果是我用sas的话，用proc sql，直接使用group 和 having ；[/quote]

你写出来也让大家学习一下阿~~~

abel

假设数据形式如下：

id var1 name

1 32 shsh

1 11 xxkx

1 3 sjdlj

2 65 sald

2 33 ijfi

2 21 sdfjl

2 10 dsflj

3 ... ....

取出每组中var1最大的三个对应的name·～～

proc sql

select id,name [into SomeTable]

group by id

having in var1>=max(var1);

貌似如此就可以了，实际上是使用内嵌的SQL来工作，很久不用SAS了，大半的具体语法细节都忘记了，对正确性不负责，对这个方法可以得到结果有信心。

sxlion

data test;

input id var1 name $ ;

datalines;

1 32 shsh

1 11 xxkx

1 3 sjdlj

2 65 sald

2 33 ijfi

2 21 sdfjl

2 10 dsflj

3 34 adfd

3 22 etete

3 12 dfeer

3 4 ssey

3 3 dfdfr

5 12 gergd

5 33 adfa

5 2 dfdee

5 6 adfer

5 77 errrr

5 8 desdfde

8 16 rgergd

8 39 ddadfa

8 24 redfdee

8 61 ddadfer

8 7 dferrrr

8 82 dksdfde

;

proc sort data=test out =ex;

by id var1;

data ex2;

set ex;

by id var1;

if last.id;

proc print;

run;

阿娅

可以将SAS数据集导出excell表格形式

然后按下面操作进行：

选定单元格-数据-排序-升序/降序-ok

觉得很实用

也不费脑筋哦