如何把列数据转成多列数据（处理股票数据）

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

小生想把从CSMAR获取的股票数据（见源文件）改成目标文件。
  即把单列的股票数据改成多列的股票数据。
因为有些股票月份数据没有，而且，每个股票行长度又不一样，不知道怎么处理。     如果空缺的话，则本月数据（value)等于  上月数据(value)。
具体文件见EXCEL，sheet1是源文件，sheet2是目标文件
TRD_Mnth.xls (35 KB)

2013-11-17 01:55:35 上传

附件

原文件：

目标文件

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：股票数据 value sheet CSMAR EXCEL 拆分

可以考虑用个macro (stock),
每次把里面的股票整理出来，
再建一个单列数据，只包括所有月份，
Macro 里面每次做left join.

这个方法肯定可行，不过可能有更好的。

你看看，是否按你的需求，你给的数据多，不太好展示，我就拿了其中几个case.

DATA A;
INPUT month        $ stock $ value;
CARDS;
2013-10        000001        69063176.86
2013-09        000001        59026657.64
2013-08        000001        52716568.81
2013-10        000002        89106208.82
2013-09        000002        88332213.52
2013-10        000004        978826.61
;

PROC SORT DATA=A OUT=B;
BY DESCENDING month stock;

DATA C;
SET B;
BY DESCENDING month ;
ARRAY ST{4} $ STOCK1-STOCK4;
ARRAY V{4}  VALUE1-VALUE4;
RETAIN ST V ;
IF FIRST.MONTH THEN DO;
I=0;
DO J=1 TO DIM(ST);
CALL MISSING(ST{J});
  CALL MISSING(V{J});
END;
END;
I+1;
ST{I}=STOCK;
V{I}=VALUE;
IF LAST.MONTH;
DROP STOCK VALUE I J;
RUN;

PROC PRINT;
RUN;

这里是已知你最多有4个股票，如果未知，还需要一步才能自动化，你自己也想想吧。

jasonscut 发表于 2013-11-17 04:22
可以考虑用个macro (stock),
每次把里面的股票整理出来，
再建一个单列数据，只包括所有月份，

1900个股票。要整理1900个文件。。。。在MERGE by month，我也会啊。。但是1900个文件啊！！！

A072560 发表于 2013-11-17 09:15
你看看，是否按你的需求，你给的数据多，不太好展示，我就拿了其中几个case.

DATA A;

PROC SORT DATA=A OUT=B;
BY DESCENDING month stock;
执行的时候遇到问题

A072560 发表于 2013-11-17 09:15
你看看，是否按你的需求，你给的数据多，不太好展示，我就拿了其中几个case.

DATA A;

在补充一点，如果数据是这样
DATA A;
INPUT month        $ stock $ value;
CARDS;
2013-10        000001        69063176.86
2013-09        000001        59026657.64
2013-08        000001        52716568.81
2013-10        000002        89106208.82
2013-09        000002        88332213.52
2013-10        000004        978826.61
2013-09        000004        132445.45
2013-08        000004        323456.33
;

那么最后显示的是

发现在stock2组里，出现了000002和000004

1. /* try this */
   
2. 
   
3. proc sort data=trd_mnth out=trd_sort;
   
4.    by stock month;
   
5. run;
   
6. 
   
7. data _null_;
   
8.     set trd_sort end=last;
   
9.       by stock;
   
10.       Retain NS 0;
    
11.       if first.stock then do;
    
12.          NS+1;
    
13.          call symput('stock'||compress(put(NS,best.)), put(stock, $6.));
    
14.        end;
    
15.    if last then call symput('NN', compress(put(NS,best.)));
    
16. run;
    
17. 
    
18. %macro merger;
    
19.      data wanted;
    
20.         set trd_sort;
    
21.         label value=value1 stock=stock1;
    
22.         where stock="&stock1";
    
23.         rename value = value1 stock = stock1;
    
24.      run;
    
25.      %do i = 2 %to &NN;
    
26.         data temp;
    
27.           set trd_sort;
    
28.           label value=value&i stock=stock&i;
    
29.           where stock = "&&stock&i";
    
30.           rename value = value&i stock = stock&i;
    
31.         run;
    
32.         data wanted;
    
33.           merge wanted temp;
    
34.           by month;
    
35.         run;
    
36.      %end;
    
37. %mend;
    
38. %merger

复制代码

xmt945 发表于 2013-11-18 23:10
1900个股票。要整理1900个文件。。。。在MERGE by month，我也会啊。。但是1900个文件啊！！！

哎，
无言。。。

不知道你想怎么分析这些数据，不过我感觉使用矩阵转置效果也好，不过不能达到你要的目标文件，你可以试一下

OH,SORRY。是我的错。你试试如下代码。
如有什么问题再商量吧。
DATA A;
INPUT month        $ stock $ value;
I=stock+0;
CARDS;
2013-10        000001        69063176.86
2013-09        000001        59026657.64
2013-08        000001        52716568.81
2013-10        000002        89106208.82
2013-09        000002        88332213.52
2013-10        000004        978826.61
2013-09        000005        132445.45
2013-08        000004        323456.33
;

PROC SORT DATA=A OUT=B;
BY DESCENDING month stock;
DATA C;
SET B;
I=stock+0;
RUN;

PROC TRANSPOSE DATA=C OUT=D(DROP=_NAME_) PREFIX=VALUE_ ;
BY MONTH NOTSORTED;
VAR   value  ;
ID I  ;

PROC PRINT;
RUN;

PROC TRANSPOSE DATA=C OUT=D2(DROP=_NAME_) PREFIX=stock_ ;
BY MONTH NOTSORTED;
VAR    stock;
ID I  ;


DATA ALL;
MERGE D D2;
RUN;
PROC PRINT;
RUN;