sas数据提取

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

data a;
input stkcd $ date $ price mark;
cards;
00 2009-01-02 12.01 0
00 2009-01-03 12.03 0
00 2009-01-06 12.00 1
00 2009-01-07 11.56 0
00 2009-01-08 11.87 0

01 2009-01-02 10.01 0
01 2009-01-03 10.03 0
01 2009-01-06 10.00 0
01 2009-01-07 10.56 1
01 2009-01-08 10.87 0
;
run;

现在我想变成这样
stkcd            date        mark     a_1       a0        a1
  00         2009-01-06    1       12.03   12.00    11.56
  01         2009-01-07    1       10.00   10.56    10.87

就是将标记为1的观察值的前一个和后一个观察值的价格变量提取出来，写成上面的形式，重新定义新的变量。由于我要处理数据比较多，希望尽可能的用程序写出来，包括要提取的观察值也有几十个。
希望能够得到很好的解决，谢谢哈。。。。


我现在还有这种形式的数据：
data b;
input date& r00 r01;
cards;
2009-01-02 12.01 11.01
2009-01-03 12.03 11.03
2009-01-06 12.00 10.00
2009-01-07 11.56 10.56
2009-01-08 11.87 10.87
;
data d;
input stkcd $ date $ price;
cards;
r00 2009-01-06 12.00
r01 2009-01-07 10.56
;
run;

渴望能够得到正解。。。

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：数据提取 stkcd cards Input Price price

data a;
input stkcd $ date $10. price mark;
cards;
00 2009-01-02 12.01 0
00 2009-01-03 12.03 0
00 2009-01-06 12.00 1
00 2009-01-07 11.56 0
00 2009-01-08 11.87 0
01 2009-01-02 10.01 0
01 2009-01-03 10.03 0
01 2009-01-06 10.00 0
01 2009-01-07 10.56 1
01 2009-01-08 10.87 0
;
run;
data b;
        set a;
        num+1;
run;

proc sql;
        create table d1 as
                select stkcd,price as a_1 from b
                        where b.num in (select num-1 from b where b.mark = 1);
        create table d2 as
                select stkcd,date,price as a0,mark,num from b
                        where b.num in (select num from b where b.mark = 1);
        create table d3 as
                select stkcd,price as a1 from b
                        where b.num in (select num+1 from b where b.mark = 1);
        create table e as
                select d2.stkcd, d2.date, d2.mark, d1.a_1, d2.a0, d3.a1
                        from d1, d2, d3
                 where d1.stkcd = d2.stkcd and d2.stkcd = d3.stkcd;

1. data a;
   
2. input stkcd $ date:yymmdd10. price mark;
   
3. format date yymmdd10.;
   
4. cards;
   
5. 00 2009-01-01 11.55 0
   
6. 00 2009-01-02 12.01 0
   
7. 00 2009-01-03 12.03 0
   
8. 00 2009-01-06 12.00 1
   
9. 00 2009-01-07 11.56 0
   
10. 00 2009-01-08 11.87 0
    
11. 01 2009-01-02 10.01 0
    
12. 01 2009-01-03 10.03 0
    
13. 01 2009-01-06 10.00 0
    
14. 01 2009-01-07 10.56 1
    
15. 01 2009-01-08 10.87 0
    
16. 01 2009-01-09 11.11 0
    
17. ;
    
18. run;
    
19. %MACRO MCR01(before,after);
    
20. proc sort data=a;by stkcd date;run;quit;
    
21. data a;
    
22. set a;
    
23. by stkcd date;
    
24. if first.stkcd then i=0;
    
25. i+1;
    
26. run;
    
27. data b;
    
28. set a(where=(mark=1) keep=stkcd i mark rename=(i=i_0));
    
29. drop mark;
    
30. run;
    
31. proc sql;
    
32. create table c as
    
33.   select
    
34.     a.stkcd
    
35.     ,sum(case when a.mark=1 then date
    
36.     else 0
    
37.     end) as date format=yymmdd10.
    
38.     ,sum(case when a.mark=1 then 1
    
39.     else 0
    
40.     end) as mark
    
41.     %do i_b=&before %to 1 %by -1;
    
42.      ,sum(case when b.i_0-a.i=%eval(&i_b) then price
    
43.      else 0
    
44.      end) as a_&i_b
    
45.     %end;
    
46.      ,sum(case when a.i=b.i_0 then price
    
47.      else 0
    
48.      end) as a0
    
49.     %do i_a=1 %to &after %by 1;
    
50.      ,sum(case when a.i-b.i_0=%eval(&i_a) then price
    
51.      else 0
    
52.      end) as a&i_a
    
53.     %end;
    
54.   from a a
    
55.   left join b b
    
56.   on   a.stkcd=b.stkcd
    
57.   group by a.stkcd
    
58. ;      
    
59. quit;
    
60. %MEND MCR01;
    
61. %MCR01(1,1);
    
62. %MCR01(2,3);
    
63. %MCR01(1,3);

复制代码

粗粗测试了下，没有问题，通过设定before和after的值可以设置mark=1之前和之后的任意条记录，没有则为0
DATA步也可以做，代码有点难看，就用SQL啦......

2# zcxdxq

很好，但是可能我的数据更复杂，每只股票多几个1就会出错（比如下面），不过这个应该可以处理，多提取几个变量匹配就行了。还有因为我可能要提取前后各五六十行，所以可能出现a_50, a50这些变量，可不可以通过循环来解决啊！

非常感谢。

data a;
input stkcd $ date $10. price mark;
cards;
00 2009-01-02 12.01 0
00 2009-01-03 12.03 1
00 2009-01-06 12.00 1
00 2009-01-07 11.56 0
00 2009-01-08 11.87 0
01 2009-01-02 10.01 0
01 2009-01-03 10.03 1
01 2009-01-06 10.00 0
01 2009-01-07 10.56 1
01 2009-01-08 10.87 0
;
run;

LZ看我的3楼，可能可以满足你
但是一个stkcd 2个 mark=1 还不行
容我有时间修改下......

3# soporaeternus2

不大能够看懂，我现在是边学习边使用，macro那一块内容，还没怎么看呢！还有，好像您习惯在程序编辑器里编辑，我一般在增强程序编辑器中编辑，您的那些代码，复制我的程序编辑器里不工作，而且我现在可能也没有能力去将您的程序修改用于我的工作，因为这一块我不太懂啊，最近在加紧学习呢！

不过还是谢谢了，二楼的sql语言还是比较通俗易懂的，现在主要是针对他提供的程序作修改了。

1. 
   
2. %MACRO MCR01(before,after);
   
3. proc sort data=a;by stkcd date;run;quit;
   
4. data a;
   
5. set a;
   
6. by stkcd date;
   
7. if first.stkcd then i=0;
   
8. i+1;
   
9. run;
   
10. data b;
    
11. set a(where=(mark=1) keep=stkcd i mark rename=(i=i_0));
    
12. drop mark;
    
13. run;
    
14. proc sql;
    
15. create table c as
    
16.   select
    
17.     a.stkcd
    
18.     ,sum(case when a.i=b.i_0 then date
    
19.     else 0
    
20.     end) as date format=yymmdd10.
    
21.     ,sum(case when a.i=b.i_0 then 1
    
22.     else 0
    
23.     end) as mark
    
24.     %do i_b=&before %to 1 %by -1;
    
25.      ,sum(case when b.i_0-a.i=%eval(&i_b) then price
    
26.      else 0
    
27.      end) as a_&i_b
    
28.     %end;
    
29.      ,sum(case when a.i=b.i_0 then price
    
30.      else 0
    
31.      end) as a0
    
32.     %do i_a=1 %to &after %by 1;
    
33.      ,sum(case when a.i-b.i_0=%eval(&i_a) then price
    
34.      else 0
    
35.      end) as a&i_a
    
36.     %end;
    
37.   from a a
    
38.   left join b b
    
39.   on   a.stkcd=b.stkcd
    
40.   group by a.stkcd
    
41.      ,b.i_0
    
42. ;      
    
43. quit;
    
44. %MEND MCR01;
    
45. data a;
    
46. input stkcd $ date:yymmdd10. price mark;
    
47. format date yymmdd10.;
    
48. cards;
    
49. 00 2009-01-01 11.55 0
    
50. 00 2009-01-02 12.01 0
    
51. 00 2009-01-03 12.03 1
    
52. 00 2009-01-06 12.00 1
    
53. 00 2009-01-07 11.56 0
    
54. 00 2009-01-08 11.87 0
    
55. 01 2009-01-02 10.01 1
    
56. 01 2009-01-03 10.03 1
    
57. 01 2009-01-06 10.00 0
    
58. 01 2009-01-07 10.56 1
    
59. 01 2009-01-08 10.87 0
    
60. 01 2009-01-09 11.11 0
    
61. ;
    
62. run;
    
63. %MCR01(1,1);
    
64. %MCR01(2,3);
    
65. %MCR01(1,3);

复制代码

修改了下，一个stkcd多个mark=1貌似也可以了，没仔细测
楼主测试下......

data b;
  set a;
   a_1 = lag(price);
   a0 = price;
   if lag(mark)= 1 then a_3 = price;
    else a_3 = 0;
run;

proc sql;
   create table c as
    select stkcd, date, price, mark, a_1, a0, sum(a_3) as a1
from b
group by stkcd
    order by stkcd, date;
quit;
data d;
   set c;
   where mark = 1;
run;

8# yongyitian

谢谢哈，这个如果是同一个Stkcd有两个以上的mark的话可能就会出错，而且只能滞后一项，我需要滞后好几十项呢，比如我要得到a_2,a_1,a0,a1,a2,这种做法不知道怎么样推广啊？

看7楼，我改了下......