t******o 发帖数: 70 | 1 data test;
input id $ yr asset netp;
datalines;
111 2012 23 11
111 2010 25 10
111 2009 39 20
111 2011 29 12
123 2008 9 4
123 2009 8 3
123 2010 7 2
;
run;
想要的结果是这样的:
id yr asset netp asset_py netp_py
111 2012 23 11 25 10
111 2011 25 10 39 20
111 2010 39 20 . .
111 2008 29 12 . .
123 2010 9 4 8 3
123 2009 8 3 7 2
123 2008 7 2 . .
解释:新产生的两列是对应previous year的值。
请教应该怎么实现,非常感谢! |
j******o 发帖数: 127 | 2 Try expand procedure.
proc expand data=test out=obtain(drop=time);
by id;
convert asset=asset_py / transformout=(lead 1);
convert netp=netp_py / transformout=(lead 1);
run; |
t******o 发帖数: 70 | 3 Worked well. Thanks!
I also found a less efficient solution.
proc sort data = test;
by id yr;
run;
data test1;
set test;
asset_py = lag(asset);
netp_py = lag(netp);
if first.id then do;
asset_py = . ;
netp_py = .;
end;
run;
【在 j******o 的大作中提到】![](/moin_static193/solenoid/img/up.png) : Try expand procedure. : proc expand data=test out=obtain(drop=time); : by id; : convert asset=asset_py / transformout=(lead 1); : convert netp=netp_py / transformout=(lead 1); : run;
|
l****u 发帖数: 529 | 4 proc sql;
create table new as
select a.*, b.asset as asset_py, b.netp as netp_py
from test a left join test b
on a.id=b.id and b.yr-a.yr=1;
quit;
|
x*******4 发帖数: 39 | 5 你这个显然有错 你要用FIRST.ID 你set的时候就要By id。 而且你这个也达不到你开
头要的结果。。。
【在 t******o 的大作中提到】![](/moin_static193/solenoid/img/up.png) : Worked well. Thanks! : I also found a less efficient solution. : proc sort data = test; : by id yr; : run; : data test1; : set test; : asset_py = lag(asset); : netp_py = lag(netp); : if first.id then do;
|
t******o 发帖数: 70 | 6 好像是的,忽略了yr不连续的情况 :)
luanyu兄的方法没问题。
【在 x*******4 的大作中提到】![](/moin_static193/solenoid/img/up.png) : 你这个显然有错 你要用FIRST.ID 你set的时候就要By id。 而且你这个也达不到你开 : 头要的结果。。。
|