求助sas程序？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

原始数据：
姓名 日期 消费
张三 2012/12/11 1254
张三 2012/12/11 614
张三 2012/12/12 239
张三 2012/12/12 6187
张三 2012/12/13 25885
想要得到的结果1：
姓名 日期 消费 消费天数
张三 2012/12/11 1254 1
张三 2012/12/11 614 1
张三 2012/12/12 239 2
张三 2012/12/12 6187 2
张三 2012/12/13 25885 3
结果2：
姓名 消费天数 消费总额
张三 3  34179

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：sas程序 原始数据 程序

1. data a;
   
2. input name $ date:yymmdd10. money;
   
3. format date yymmdd10.;
   
4. cards;
   
5. 张三 2012/12/11 1254
   
6. 张三 2012/12/11 614
   
7. 张三 2012/12/12 239
   
8. 张三 2012/12/12 6187
   
9. 张三 2012/12/13 25885
   
10. 李四 2012/12/12 239
    
11. 李四 2012/12/12 6187
    
12. 李四 2012/12/13 25885
    
13. ;
    
14. run;
    
15. data b;
    
16. set a;
    
17. retain day;
    
18. if first.name then day=1;
    
19. if not first.name and date^=lag(date) then day+1;
    
20. by name notsorted;
    
21. run;
    
22. 
    
23. proc sql;
    
24. create table c as select distinct(name), count(distinct(date)) as days, sum(money) as  total
    
25. from a group by name;
    
26. quit;

复制代码

1. data demo;
   
2. format date yymmdd10.;
   
3. input name $ date yymmdd10. consumption;
   
4. datalines;
   
5. 张三 2012/12/11 1254
   
6. 张三 2012/12/11 614
   
7. 张三 2012/12/12 239
   
8. 张三 2012/12/12 6187
   
9. 张三 2012/12/13 25885
   
10. ;
    
11. 
    
12. data want1(drop=tmp sum_con ) want2(drop=tmp date consumption);
    
13. retain name date  consumption num_day sum_con;
    
14.     set demo end=last;
    
15. tmp=lag(date);
    
16. sum_con+consumption;
    
17. if date^=tmp then  num_day+1;
    
18. if last then output want2;
    
19. output want1;
    
20. run;

复制代码

1. data demo;
   
2. format date yymmdd10.;
   
3. input name $ date yymmdd10. consumption;
   
4. datalines;
   
5. 张三 2012/12/11 1254
   
6. 张三 2012/12/11 614
   
7. 张三 2012/12/12 239
   
8. 张三 2012/12/12 6187
   
9. 张三 2012/12/13 25885
   
10. 李三 2012/12/12 6187
    
11. 李三 2012/12/13 25885
    
12. ;
    
13. 
    
14. proc sort data=demo;
    
15.         by name;
    
16. run;
    
17. 
    
18. data want1(drop=tmp sum_con ) want2(drop=tmp date consumption);
    
19. retain name date  consumption num_day sum_con;
    
20.     set demo end=last;
    
21.         by name;
    
22. tmp=lag(date);
    
23. if first.name then
    
24.   do num_day=0;
    
25.       sum_con=0;
    
26.   end;
    
27. sum_con+consumption;
    
28. if date^=tmp then  num_day+1;
    
29. if last.name  then output want2;
    
30. output want1;
    
31. run;

复制代码

webgu 发表于 2012-12-28 13:03

谢谢了～～