请教：如何给依据某一列的值给另外一列赋值？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

矩阵Dat如下（实际行数和列数很多，100万*20）
ID01 ID02 ID03 ID04 ID05
[1,] 1 9423 1949 0 110
[2,] 1 9720 2000 0 190
[3,] 1 8920 1996 0 110
[4,] 1 8022 1992 0 113
[5,] 1 9110 1963 0 110

问题1：根据ID05的值来给ID04列赋值，只要ID05的值等于190或113就给ID04赋值1，否则赋值为0.
使用下面代码很容易实现：
Dat$ID04 = 0Dat$ID04[which(Dat$ID05 == 190 | Dat$ID05 == 113)] = 1
但问题是：
问题2：根据ID05的值来给ID04列赋值，只要ID05的值等于190就给ID04赋值为ID03/ID02，否则赋值为0.
Dat$ID04[which(Dat$ID05 == 190 | Dat$ID05 == 113)] = Dat$ID03/ID02
此时使用上面语句就有警告，有时无法使用全部操作。

什么原因？如何解决？不使用循环。

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：Which 不使用 赋值 矢量化运算

1. w=which(Dat$ID05==190|Dat$ID05==113)
   
2. Dat$ID04[w]=Dat$ID03[w]/Dat$ID02[w]
   
3. 或者
   
4. Dat$ID04 = ifelse(Dat$ID05==190|Dat$ID05==113,Dat$ID03/Dat$ID02,Dat$ID04)

复制代码

dat$ID04<-ifelse(dat$ID05==190|dat$ID05==113,1,0)，返回值可以换成公式或者条件，你可以试试