如何将ID相同的数据重塑成新数据

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

原数据大致如下

ID code name shorthand 001983BC-97D3-4527-91D9-BC21B05432BC 85113 精品肋排 JPLP 009A1EFA-F59F-4230-8BF1-42E2E4770DFF 81159 生姜 SJ 00AEF56A-AF35-4F40-9302-BCBC4477B6F9 83017 小红米椒 XHMJ 00AEF56A-AF35-4F40-9302-BCBC4477B6F9 82027 白菜苔 BCT 00AEF56A-AF35-4F40-9302-BCBC4477B6F9 82104 广东菜心 GDCX 00AEF56A-AF35-4F40-9302-BCBC4477B6F9 83017 小红米椒 XHMJ 00BD850C-DC0D-48FA-B3E0-E19FBDB75947 89181 卤水汁 LSZ 00BD850C-DC0D-48FA-B3E0-E19FBDB75947 89225 玉竹香米 YZXM 00EAC830-8ED5-4487-8125-D5C595E0C786 89097 唐人神水晶香肠 TRSSJXC 00EAC830-8ED5-4487-8125-D5C595E0C786 81108 蒜苗段 SMD 0105D481-D1ED-40F0-A8AC-DD6C635033A0 89021 腊肠 LC 0105D481-D1ED-40F0-A8AC-DD6C635033A0 83028 小青椒 XQJ 0105D481-D1ED-40F0-A8AC-DD6C635033A0 83079 黄瓜 HG

请问如何将ID相同的列与name合并成新数据，哎不知道怎么形容，大致就是这种，

ID	name
001983BC-97D3-4527-91D9-BC21B05432BC	精品肋排
009A1EFA-F59F-4230-8BF1-42E2E4770DFF	生姜
00AEF56A-AF35-4F40-9302-BCBC4477B6F9	小红米椒，白菜苔，广东菜心，小红米椒
00BD850C-DC0D-48FA-B3E0-E19FBDB75947	卤水汁，玉竹香米
00EAC830-8ED5-4487-8125-D5C595E0C786	唐人神水晶香肠，蒜苗段
0105D481-D1ED-40F0-A8AC-DD6C635033A0	腊肠，小青椒，黄瓜

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：相同的数据 idcode Short Names name

1. txt <- "ID        code        name        shorthand
   
2. 001983BC-97D3-4527-91D9-BC21B05432BC        85113        精品肋排        JPLP
   
3. 009A1EFA-F59F-4230-8BF1-42E2E4770DFF        81159        生姜        SJ
   
4. 00AEF56A-AF35-4F40-9302-BCBC4477B6F9        83017        小红米椒        XHMJ
   
5. 00AEF56A-AF35-4F40-9302-BCBC4477B6F9        82027        白菜苔        BCT
   
6. 00AEF56A-AF35-4F40-9302-BCBC4477B6F9        82104        广东菜心        GDCX
   
7. 00AEF56A-AF35-4F40-9302-BCBC4477B6F9        83017        小红米椒        XHMJ
   
8. 00BD850C-DC0D-48FA-B3E0-E19FBDB75947        89181        卤水汁        LSZ
   
9. 00BD850C-DC0D-48FA-B3E0-E19FBDB75947        89225        玉竹香米        YZXM
   
10. 00EAC830-8ED5-4487-8125-D5C595E0C786        89097        唐人神水晶香肠        TRSSJXC
    
11. 00EAC830-8ED5-4487-8125-D5C595E0C786        81108        蒜苗段        SMD
    
12. 0105D481-D1ED-40F0-A8AC-DD6C635033A0        89021        腊肠        LC
    
13. 0105D481-D1ED-40F0-A8AC-DD6C635033A0        83028        小青椒        XQJ
    
14. 0105D481-D1ED-40F0-A8AC-DD6C635033A0        83079        黄瓜        HG"
    
15. 
    
16. data <- read.table(text = txt, sep = "\t", stringsAsFactors = FALSE, header = TRUE)
    
17. 
    
18. library(dplyr)
    
19. 
    
20. data_agg <- data %>%
    
21.   group_by(ID) %>%
    
22.   summarise(name = paste(name, collapse = ","))

复制代码

ntsean 发表于 2017-11-29 17:05

代码可行，为您奉上真诚的感谢