求助一个简单的code

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

数据样式如下：
Z变量      X 变量          Y 变量      
A          7000              1000   
A          7000              2000
A          7000                500
A          7000                600
B          5000              1000   
B          5000              2000
B          5000              2500
B          5000              3000
希望达到如下结果，
（1）A公司的7000首先对Y进行依次分配，先分配1000，剩下了6000，再分配2000，剩下了4000接着分配500和600，还剩下
7000-1000-2000-500-600=2900.这2900进行单独列示。
(2)对B公司一样地，先把5000分配1000，接着2000，剩下的2000不够2500了，就把2000填上
Z变量      X 变量          Y 变量      W变量
A          7000              1000         1000
A          7000              2000         2000
A          7000                500          500
A          7000                600          600
A                                              2900
B          5000              1000        1000
B          5000              2000        2000
B          5000              2500        2000
B          5000              3000            0

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：code COD ODE 再分配

data b;
set a;
w=y;
run;
proc sql;
create table c as
select z,sum(w) as total
from b
group by z;
quit;
proc sort data=b;
by z;
run;
proc sort data=c;
by z;
run;
data d;
merge b c;
by z;
w=x-total;
x=.;
y=.;
run;
proc sort data=d nodupkey out=temp ;
by z;
run;
data final;
set b temp(drop=total);
if w<=0 then w=0;
run;
proc sort data=final;
by z;
run;

水平有限，用了很笨的方法，坐等大牛指教。

比我的方法简便了很多。

data aa;
input z $ x y;
cards;
A          7000              1000   
A          7000              2000
A          7000                500
A          7000                600
B          5000              1000   
B          5000              2000
B          5000              2500
B          5000              3000
;
run;
proc print; run;
proc sort data=aa out=bb; by z x; run;
proc print data=bb; run;

data cc;
        set bb;
        by z;
        retain temp 0;
        if first.z then temp=x-y;
        else temp=temp - y;
run;

proc print; run;

data want;
    set cc;
    if temp<0 then group='N';
    else group='P';
run;
data want2;
    set want;
    by z group notsorted;
        temp1 = temp;
        lag_temp = lag(temp);
                if group='N' then
                        if first.group then temp1 = lag_temp;
                        else temp1=0;

run;
proc print; run;

data want3;
        set want2;
        if group='N' then temp=temp1;
        keep z x y temp;
run;
proc print; run;

67890 发表于 2016-4-6 10:38
data aa;
input z $ x y;
cards;

似乎运行出来的结果和想要的 有点不一样。不过还是非常感谢

proc sort data = orig ;
  by z ;
run ;

data new (drop=x_hold);
  set orig ;
  by z ;
  retain x_hold ;
  if first.z then x_hold=x ;
  if x_hold >=y then do ;
     w=y ;
     x_hold = x_hold-y ;
  end ;
  else do ;
     w=x_hold ;
         x_hold=0 ;
  end ;
  output ;
  if last.z and x_hold > 0 then do ;
            x = . ;
                y = . ;
                w = x_hold ;
                output ;
  end ;
run;

yingzi2003 发表于 2016-4-6 22:01
proc sort data = orig ;
  by z ;
run ;

膜拜。 膜拜。一个data步搞定。多向你学习

yingzi2003 发表于 2016-4-6 22:01
proc sort data = orig ;
  by z ;
run ;

能多请教一个问题吗
  if last.z and x_hold > 0 then do ;
             x = . ;
                 y = . ;
                 w = x_hold ;
                 output ;
   end ;
为什么这个语句就可以多增加一行，而不是把最后一行的X和Y变成缺失值呢，，好神奇呀

这里用了两次OUTPUT, 第一个OUTPUT已经输出了全部的数据. 第二个OUTPUT 再输出一次满足条件的记录.