sas sql与购物篮分析

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

sas sql 怎么实现购物篮分析呢？谢谢！

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：sql 购物篮 购物篮

什么是购物篮分析？难道是每个购物篮的商品分析？

我有两个字段 order_id 和 product_id
每个order_id对应的product_id是不同的,如下：
order_id        product_id
1        A
1        B
1        D
2        A
2        B
3        A
3        C
3        E
3        F
4        A
4        B
5        A
5        B
5        C
5        D
5        F
5        G
我想利用sql找出与各类product_id最相关的产品，比如
A与B（出现3次）最相关、与C（2次）、D（2次）次相关
同理找出B、C、D等等product_id相关的产品。

更正下：A出现的时候B出现的次数是4

做到的一个中间步骤和下面的问题很类似，也是想通过sql语句实现，不知道怎么解决
两列数据
c1 c2
1 who
1 am
1 I
2 sas
2 软件
3 a
.....
转化为
1 who am I
2 sas 软件
3 a

ck032 发表于 2011-8-12 17:02
我有两个字段 order_id 和 product_id
每个order_id对应的product_id是不同的,如下：
order_id        product_i ...

1. data test;
   
2. input order_id $       product_id $;
   
3. cards;
   
4. 1        A
   
5. 1        B
   
6. 1        D
   
7. 2        A
   
8. 2        B
   
9. 3        A
   
10. 3        C
    
11. 3        E
    
12. 3        F
    
13. 4        A
    
14. 4        B
    
15. 5        A
    
16. 5        B
    
17. 5        C
    
18. 5        D
    
19. 5        F
    
20. 5        G
    
21. ;
    
22. run;
    
23. 
    
24. options symbolgen;
    
25. %macro test();
    
26. proc sql noprint;
    
27. create table test1 as
    
28. select distinct product_id as product_id
    
29. from test
    
30. ;
    
31. select count(*) INTO: obs
    
32. from test1
    
33. ;
    
34. %let obs=%cmpres(&obs);
    
35. select product_id into : p1 -:p&obs
    
36. from test1
    
37. ;
    
38. quit;
    
39. 
    
40. %do k=1 %to &obs;
    
41. %do j=1 %to &obs;
    
42. proc sql;
    
43. create table data&j as
    
44. select count(*) as &&p&k.
    
45. from test as a, test as b
    
46. where a.order_id=b.order_id and a.product_id="&&p&k" and b.product_id="&&p&j"
    
47. ;
    
48. quit;
    
49. %end;
    
50. 
    
51. data mer&k.;
    
52. set %do ii=1 %to &obs; data&ii %end;;
    
53. if _N_=&k. then &&p&k.=-1;
    
54. run;
    
55. %end;
    
56. 
    
57. data matrix;
    
58. %do jj=1 %to &obs; set mer&jj.; %end;
    
59. run;
    
60. 
    
61. data matrix1;
    
62. set matrix;
    
63. %do kk=1 %to &obs;
    
64. if _N_=&kk. then do;
    
65. _Product_="&&p&kk.";output;
    
66. end;
    
67. %end;
    
68. run;
    
69. proc print data=matrix1 noobs;
    
70. var _Product_ %do ll=1 %to &obs; &&p&ll. %end;;
    
71. run;
    
72. %mend;
    
73. %test();

复制代码

Result:

时间所限，每列的最大值，次最大值...，可在PROC REPORT中标注不同的颜色，更美观一些，期待LXS解决！

tj0412ymy 发表于 2011-8-12 18:42
时间所限，每列的最大值，次最大值...，可在PROC REPORT中标注不同的颜色，更美观一些，期待LXS解决！

data test;
input order_id $       product_id $;
cards;
1        A
1        B
1        D
2        A
2        B
3        A
3        C
3        E
3        F
4        A
4        B
5        A
5        B
5        C
5        D
5        F
5        G
;
run;
proc sql noprint;select count(distinct product_id) into:num from test;quit;
proc sql noprint;select distinct product_id into:pro1 - :pro%left(&num) from test order by product_id;quit;
options mprint symbolgen;
%macro test();
proc sql;
%do j=1 %to #
create table temp&j as
select
%do i=1 %to #
%if &i=&j %then %do;
. as &&pro&i,
%end;
%else %do;
sum(&&pro&i) as &&pro&i,
%end;
%end;
"&&pro&j" as pro
from
(select
%do k=1 %to #
sum(case when product_id="&&pro&k" then 1 else 0 end) as &&pro&k,
%end;
order_id from test
group by order_id)
where &&pro&j>0;
%end;
run;
data final;
set
%do i=1 %to #
temp&i
%end;
;run;
%mend;
%test();
随手写了一个，仅供参考。呵呵。

http://www.mysas.net/forum/viewtopic.php?f=4&t=7837