重金悬赏SAS 数据排放问题

重金悬赏SAS 数据排放问题， 这个比较急，希望版内大牛多多帮忙解答。

具体问题，样本数据，和要求，理想结果请看附件里的excel 文件。 如有问题，请指出，我会进一步说明。

200金币做为答谢。 请把大体的 SAS 程序写出，我已经完成部分数据处理才有了样本数据的模式，剩下的要求不会写才悬赏发问。 积极回答，程序越全，思路越清晰越好， 并跟进楼主后续问题 的板油将获得金币和额外奖励。

样本数据.xlsx (13.22 KB)

2016-10-2 12:31:09 上传

阅读权限: 16

1. data a;
   
2. input ID $        IND        Group $        SubGroup $        ItemCount        Price;
   
3. cards;
   
4. 00001        1        A        A3        1        100000
   
5. 00001        1        A        A2        0        27000
   
6. 00001        0        E        E1        1        100
   
7. 00001        0        B        B2        1        2000
   
8. 00001        0        B        B3        0        2500
   
9. 00001        0        C        C3        1        1000
   
10. 00001        0        D        D4        1        200
    
11. 00001        0        E        E2        0        1000
    
12. 00001        0        C        C3        0        200
    
13. 00001        0        D        D2        0        400
    
14. 00001        0        D        D1        0        1000
    
15. 00002        1        A        A2        1        44400
    
16. 00002        1        A        A1        0        8940
    
17. 00002        0        A        A3        1        8800
    
18. 00002        0        B        B2        1        500
    
19. 00002        0        C        B3        0        1400
    
20. 00002        0        C        C3        1        110
    
21. 00002        0        E        E3        1        2500
    
22. 00002        0        E        E2        0        1200
    
23. ;
    
24. run;
    
25. 
    
26. proc sort data=a;
    
27.         BY ID Group descending price;
    
28. RUN;
    
29. 
    
30. 
    
31. data tempa;
    
32.         set a;
    
33.         by ID ;
    
34.         if first.id;
    
35. run;
    
36. 
    
37. data finala;
    
38.         merge  a (keep=ID Price) tempa(drop=price);
    
39.         by id;
    
40.         if first.id then ItemCount=1;else ItemCount=0;
    
41. run;
    
42. 
    
43. 
    
44. 
    
45. 
    
46. data b;
    
47. input ID $        IND        Group $        SubGroup $        ItemCount        Price;
    
48. cards;
    
49. 00003        1        B        B1        1        520
    
50. 00003        0        B        B2        0        440
    
51. 00003        0        B        B4        0        320
    
52. 00003        0        B        B3        0        190
    
53. 00003        0        C        C4        1        220
    
54. 00003        0        E        E3        1        100
    
55. 00003        0        C        C5        0        210
    
56. 00003        0        D        D2        1        420
    
57. 00003        0        D        D4        0        290
    
58. 00004        1        B        B2        1        700
    
59. 00004        1        B        B4        0        600
    
60. 00004        0        C        C3        1        240
    
61. 00004        0        E        E2        1        410
    
62. 00004        0        D        D1        1        260
    
63. ;
    
64. run;
    
65. 
    
66. 
    
67. proc sort data=b;
    
68.         by ID Group SubGroup descending price;
    
69. run;
    
70. 
    
71. data tempb;
    
72.         set b;
    
73.         by ID ;
    
74.         if first.id;
    
75. run;
    
76. 
    
77. data finalb;
    
78.         merge b (keep=ID Price) tempb(drop=price);
    
79.         by id;
    
80.         if first.id then ItemCount=1;else ItemCount=0;
    
81. run;

复制代码