关于数据集按观测拆分问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

求教各位大神，现在我有一个数据集a中存放的是上证A股部分股票某个月份每天的收益率，格式如下：
Stkcd(股票代码）     Trddt(年月日）      Ri（收益率）
        ······                    ··········                 ········
其中不知道具体有哪些股票，每只股票在该月份的交易日数不一定相等。现在想按Stkcd来拆分该数据集，最好拆分成以股票代码命名的数据集，求助啊~~~

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：数据集 stkcd 股票代码 上证A股 收益率 上证A股 股票代码 年月日 收益率 交易日

麻烦给出部分数据，数据可以是自己编的的用来做程序调试；

1. /*测试数据集*/
   
2. data testt;
   
3. input stkcd $ time yymmdd10. ri;
   
4. datalines;
   
5. 1364654 2015-04-02 0.02
   
6. 1364652 2015-04-02 0.02
   
7. 1364654 2015-04-02 0.02
   
8. 1364653 2015-04-02 0.02
   
9. 1364654 2015-04-02 0.02
   
10. 1364652 2015-04-02 0.02
    
11. 1364654 2015-04-02 0.02
    
12. ;
    
13. run;
    
14. /*将股票代码汇总*/
    
15. proc sql;
    
16. create table one as select distinct stkcd
    
17. from test;
    
18. /*group by stkcd;*/
    
19. quit;
    
20. /*共有多少个股票代码，设置宏*/
    
21. data _null_ ;
    
22. set one end=final;
    
23. call symput(compress('ST'||left(_n_)),stkcd);
    
24. if final then call symput('N',_n_);
    
25. run;
    
26. /*检验一下宏*/
    
27. %let d=2;
    
28. %put &&st&d.;
    
29. 
    
30. /*设置一个宏语句进行数据集分组*/
    
31. %macro ttt();
    
32. data test1 test2 test3;
    
33. %local d;
    
34. set testt;
    
35. %do i=1 %to &n.;
    
36. %let d=&i;
    
37. if (stkcd1=&&st&d.) then output test&d.;
    
38. %put &&st&d.;
    
39. %end;
    
40. run;
    
41. %mend;
    
42. /*调用宏语句*/
    
43. %ttt();

复制代码

data test;
input stkcd $ time:yymmdd10. ri;
format  time yymmdd10.;
datalines;
a1364654 2015-04-02 0.02
a1364652 2015-04-02 0.02
a1364654 2015-04-02 0.02
a1364653 2015-04-02 0.02
a1364654 2015-04-02 0.02
a1364652 2015-04-02 0.02
a1364654 2015-04-02 0.02
;
run;
/*将股票代码汇总*/
proc sql;
create table one as select distinct stkcd
from test;
/*group by stkcd;*/
quit;
/*共有多少个股票代码，设置宏*/
data _null_ ;
set one end=final;
call symput(compress('ST'||left(_n_)),stkcd);
if final then call symput('N',_n_);
run;
%macro ttt();
%do i=1 %to &N.;
        data &&ST&i.;       
                set test;
    if stkcd="&&ST&i." then output &&ST&i.;
        run;
%end;
%mend;
/*调用宏语句*/
%ttt();


将代码调优后应该能满足你那个需求。

lanzezhuang 发表于 2015-5-19 15:48

谢谢你！！！看上去应该可以用，我先去试试~~~好感动啊，好人会有好报的

Garffe 发表于 2015-5-21 09:30
谢谢你！！！看上去应该可以用，我先去试试~~~好感动啊，好人会有好报的

不客气，工作之余，回答一下啦！

试了不行？

lanzezhuang 发表于 2015-5-19 19:42
data test;
input stkcd $ time:yymmdd10. ri;
format  time yymmdd10.;

%do i=1 %to &N.;
        data &&ST&i.;        
                set test;
    if stkcd="&&ST&i." then output &&ST&i.;
        run;
%end;
%mend;

lanzezhuang 发表于 2015-5-19 19:42
data test;
input stkcd $ time:yymmdd10. ri;
format  time yymmdd10.;

%do i=1 %to &N.;
        data &&ST&i.;        
                set test;
    if stkcd="&&ST&i." then output &&ST&i.;
        run;
%end;
%mend;

lanzezhuang 发表于 2015-5-19 19:42
data test;
input stkcd $ time:yymmdd10. ri;
format  time yymmdd10.;

最后部分的连续&&删掉