特定值修改

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现在有一个字段，IND_NM。
prd_id        IND_NM
100120     Wholesale/Retail Distrib
100121     Mfg & Distr. Indus.
...              ...
现在想处理成
prd_id       IND_NM                            IND_NM_GROUP1    IND_NM_GROUP2    IND_NM_GROUP3
100120      Wholesale/Retail Distrib                  1                             0                               0
...               ......                                            ...                         .......                      .......


想满足下面的要求，这么做啊？
#IF IND_NM IN ('Wholesale/Retail Distrib', 'Comm,Media&Entertainment', 'Mfg & Distr. Indus.') THEN IND_NM_GROUP1 = 1 ; ELSE IND_NM_GROUP1 = 0 ;
#IF IND_NM IN ('Hospitality-Hotel', 'Other Industries', 'Telecom', 'Durable Manufacture', 'Provincial Government','Transport/Communic/Utilit', 'General, Business Service', 'Education', 'SQ-Education/Government') THEN IND_NM_GROUP2 = 1 ; ELSE IND_NM_GROUP2 = 0 ;
#IF IND_NM IN ('SQ-Unknown', 'Entertainment', 'Public Sector', 'SQ Platinum', 'SQ-Mercury', 'SQ-Mars', 'Food Services', 'ESS Country Speedway Appr', 'Mining & Construction', 'Automotive', 'Health/Education/Research', 'Health Care Public','Enterprise Business', 'Pricing Analytics', 'Government, State & Local', 'Agriculture', 'Finance/Insurance/Banking', 'Colleges/Universities', 'Legal') THEN IND_NM_GROUP3 = 1 ; ELSE IND_NM_GROUP3 = 0 ;
谢谢各位了。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Universities Construction Hospitality MANUFACTURE Agriculture

假设data是初始数据，newdata是转换成的数据

1. newdata <- matrix("",nrow=nrow(data),ncol=5)
   
2. colnames(newdata) <- c("prd_id","IND_NM","IND_NM_GROUP1","IND_NM_GROUP2","IND_NM_GROUP3")
   
3. for(i in 1:nrow(data)){
   
4.     if(is.element(data[i,3],c('Wholesale/Retail Distrib', 'Comm,Media&Entertainment', 'Mfg & Distr. Indus.'))){
   
5.         newdata[i,3] <- 1}
   
6.     else{newdata[i,3] <- 0}
   
7.     ....
   
8. }
   
9. newdata[,1] <- data[,1]
   
10. newdata[,2] <- data[,2]

复制代码