一个关于矩阵方面的问题，请帮帮忙

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

顾客1	菜品1,菜品2	数量1份，数量2份
顾客2	菜品1,菜品2,菜品3	数量1份，数量2份，数量3份
顾客3	菜品1,菜品2,菜品3	数量1份，数量2份，数量3份
顾客4	菜品1,菜品2,菜品3	数量1份，数量2份，数量3份
顾客5	菜品1,菜品2	数量1份，数量2份

大概是这样的数据，需要将菜品，数量分裂出来到下一行，然后顾客1对应菜品1
顾客1对应菜品2，这样子形成一行行数据

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：如何

然后希望得出的结果是这样的

顾客1	菜品1	数量1份
顾客1	菜品2	数量2份
顾客1	菜品3	数量3份
顾客2	菜品1	数量1份

如果你的数据就这样，是规则的，那么可以用以下代码来实现：

1. x <- 1:5
   
2. y <- c("1,2","1,2,3","1,2,3","1,2,3","1,2")
   
3. z <- c("a,b","a,b,c","a,b,c","a,b,c","a,b")
   
4. or_df <- data.frame(x,y,z,stringAsFactors=FALSE)
   
5. 
   
6. tranfun <- function(id,value){
   
7. rawdata <- split(as.character(value),id)
   
8. rawdata2 <- lapply(rawdata,function(x) unlist(strsplit(x,",")))
   
9. repnum <- unlist(sapply(rawdata2,length))
   
10. customer <- unlist(mapply(rep,id,repnum))
    
11. caipin <- as.vector(unlist(rawdata2))
    
12. return(data.frame(customer,caipin))
    
13. }
    
14. # 这里运行之后，需要改一下最后一列的名字
    
15. cbind(tranfun(x,y),tranfun(x,z)[,2])

复制代码

如果有更好的方式，欢迎指出哈。这里只是用最原始的方式来处理的。

沿用楼上的数据生成部分，给一个奇巧淫技点的实现方法：

1. x <- 1:5
   
2. y <- c("1,2","1,2,3","1,2,3","1,2,3","1,2")
   
3. z <- c("a,b","a,b,c","a,b,c","a,b,c","a,b")
   
4. or_df <- data.frame(x,y,z)
   
5. 
   
6. with(or_df,{
   
7.   exp= sprintf('data.frame(custom=%s, quantity=c(%s), item=c("%s"))',x,y,gsub(',','","',x ))
   
8.   Reduce(rbind, lapply(exp, function(x) eval(parse(text=x))))
   
9. })

复制代码

楼上的大神好，其实我用了一段代码实现，但是效率太慢哎，10w数据分解，要花好几十分钟

1. mydata_list<-1:nrow(mydata)
   
2. class(mydata_list)
   
3. 
   
4. rbin_df<-data.frame(stringsAsFactors = FALSE,'1','2','3','4','5')
   
5. 
   
6. for(x in mydata_list){
   
7.   
   
8.   rbin_food_name<-unlist(str_split(mydata[x,]$food_name,','))
   
9.   rbin_food_count<-unlist(str_split(mydata[x,]$food_count,','))
   
10.   
    
11.   for(m in 1:length(rbin_food_name)){
    
12.    
    
13.     add_rows<-c(id=mydata[x,]$order_id,address=mydata[x,]$address,username=mydata[x,]$username,foodname=rbin_food_name[m]
    
14.                 ,foodcount=rbin_food_count[m])
    
15.     print(add_rows)
    
16.     print(class(add_rows))
    
17.     rbin_df<-rbind(rbin_df,add_rows)
    
18.   }
    
19. }

复制代码

马甲1号 发表于 2016-6-16 09:24
沿用楼上的数据生成部分，给一个奇巧淫技点的实现方法：

这个方法很强大啊，但是代码看不懂

xiaowenjie21 发表于 2016-6-16 11:10
这个方法很强大啊，但是代码看不懂

就是对每个id生成一个data.frame赋值语句，批量eval成data.frame，再用rbind拼装起来。