关于数据转化，请高手赐教！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

最近在学校R中的关联规则，发现一个问题。R的arules包要求的数据格式是：如下
               产品1   产品2   产品3  。。。产品99999，产品100000   
客户A：     1         0          1                             1             0
客户B：     0         0          1                             1             1
客户C：     1         0         0                              0             1
...
但实际数据库的数据是：

客户A： 产品1，产品3，产品99999
客户B：产品3，产品99999，产品100000；
客户C：产品1，产品100000；

请问，如何把实际数据转化为R要求的数据呢？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：数据转化 arules Rules 实际数据 数据格式 数据库 产品 如何 学校

用SAS 很容易转，用R 不知道。

deep2008 发表于 2014-4-11 12:58
用SAS 很容易转，用R 不知道。

用SAS怎么转？每行的列数不相等的

不相等也没关系。

已解决。

把利用R解决的答案贴出来，让我们学习下。

ywh19860616 发表于 2014-4-11 16:02
把利用R解决的答案贴出来，让我们学习下。

这个靠 reshape2了
也想知道楼主的方法我改下不用list, 直接读取数据（读取“.txt")

1. #列是否相同，无所谓，fill=T   填充""

复制代码

1. dat=read.table(text="客户A,产品1,产品3,产品99999
   
2. 客户B,产品3,产品99999,产品100000
   
3. 客户C,产品1,产品100000",sep=",",fill=T)
   
4. dat[dat==""]=NA
   
5. 
   
6. dat_f <- melt(dat,id.vars="V1",na.rm=T)
   
7. dat_d <- dcast(dat_f,V1~value)
   
8. dat_d[,-1][!is.na(dat_d[,-1])]=1
   
9. dat_d[,-1][is.na(dat_d[,-1])]=0
   
10. dat_d

复制代码

readline读入，然后暴力循环。

淘宝网橙迷橙橙 发表于 2014-4-12 21:37
readline读入，然后暴力循环。

首先呢， 看了 你的 淘宝品牌  橙迷，  衣服 干练，简约，懂生活。  女模特，有型很酷，值得大家瞧一瞧。

另外，readline, 暴力循环， 橙迷橙橙 掌柜，把代码写出来 暴力一下撒。

jmpamao 发表于 2014-4-12 16:25
这个靠 reshape2了
也想知道楼主的方法我改下不用list, 直接读取数据（读取“.txt")

赞！
知道reshape2里面的两大函数是wide to long和long to wide，
真正自己来用的时候就想不到了。每次看到各种好的代码，如各种unlist，
paste组合，基本能看懂，自己写的时候就木有思路，这就是我现在的节奏啊。
求指导哈，怎么能灵活运用这些函数。


我写了一个简化的Stata版代码

1. clear
   
2. input v1  v2  v3
   
3. 1 3 5
   
4. 3 4 6
   
5. 1 2 .
   
6. end
   
7. xpose,clear
   
8. stack v1 v2 v3,into(vv) clear
   
9. list
   
10. drop if vv==.
    
11. contract _stack vv
    
12. reshape wide _freq , i(_stack) j(vv)
    
13. mvencode _all, mv(0)
    
14. list

复制代码