data x;
input id $ a b c@;
cards;
001 1 2 3
001 2 3 4
002 2 5 1
002 3 2 1
;run;
proc sql noprint;
create table final as
select id,sum(a) as a,sum(b) as b,
sum(c) as c from x group by id;quit;
楼上的程序比较简洁，我来段复杂的吧，也是数据量比较大的时候能用的上。
data raw;
input id $3. a b c;
cards;
001 1 2 3
001 2 3 4
002 2 5 1
002 3 2 1
;
proc sort data=raw;
by id;
data result(drop=a b c i);
set raw;
by id;
retain a1 b1 c1 0;
array aa(3) a b c;
array bb(3) a1 b1 c1;
do i=1 to 3;
bb(i)+aa(i);
if first.id then bb(i)=aa(i);
end;
if last.id;
run;
data aa;
input id $6.0 a b c;
infile datalines truncover;
datalines;
001 1 2 3
001 2 3 4
002 2 5 1
002 3 2 1
; run;
data b;
do _n_=1 by 1 until(last.id);
set aa;
by id;
if first.id then do; suma=0; sumb=0 ; sumc=0;end;
suma+a;
sumb+b;
sumc+c;
end;
run;
扫码加好友，拉您进群
全部版块
我的主页
收藏
