当我创建一个新变量时出了什么问题？

Question

我想根据施加在原始变量上的条件创建一个新变量。比方说，

• 原始变量，“无功”，是一个矢量由一个随机抽样的1 ... 20，和
• 新变量“newvar”设置为丢失时，原来的“ VAR”大于10，并且等于‘VAR’何时‘VAR’小于10

的下面描述的代码的程序，

> mydata <- data.frame(var=sample(1:20)) 
> mydata$newvar <- rep(NA, nrow(mydata)) 
> mydata$newvar[mydata$var < 10] <- mydata$var 
Warning message: 
In mydata$newvar[mydata$var < 10] <- mydata$var : 
    number of items to replace is not a multiple of replacement length 

作为警告消息指示，其结果是可怕的。例如，在第4行和第5行中，“newvar”分别在第2行和第3行中分配了“var”的值。你能告诉我哪里出了问题吗？

> mydata 
    var newvar 
1 3  3 
2 16  NA 
3 13  NA 
4 5  16 
5 7  13 
6 19  NA 
7 4  5 
8 17  NA 
9 9  7 
10 20  NA 
11 14  NA 
12 8  19 
13 10  NA 
14 6  4 
15 1  17 
16 11  NA 
17 18  NA 
18 15  NA 
19 2  9 
20 12  NA 

我对R相对较新，仍在学习如何操作变量和数据。要创建新的变量，我知道我可以只通过需要的指数循环改变如下图所示

mydata$newvar <- rep(NA, nrow(mydata)) 
loop_through_these <- which(mydata$var < 10) 

for(i in loop_through_these){ 

    mydata$newvar[i] <- mydata$var[i] 
} 
> mydata 
    var newvar 
1 3  3 
2 16  NA 
3 13  NA 
4 5  5 
5 7  7 
6 19  NA 
7 4  4 
8 17  NA 
9 9  9 
10 20  NA 
11 14  NA 
12 8  8 
13 10  NA 
14 6  6 
15 1  1 
16 11  NA 
17 18  NA 
18 15  NA 
19 2  2 
20 12  NA 

这虽然不是最有效的，给了我正确的结果。我仍然认为比使用循环更有效。您的帮助将不胜感激。

Answer 1

只需使用mydata$newvar <- with(mydata, ifelse(var < 10, var, NA))。

你甚至没有提到你得到的警告信息。正确的方法是：

mydata$newvar[mydata$var < 10] <- mydata$var[mydata$var < 10] 

否则双方的长度不匹配。

Answer 2

您可以使用ifelse或which这样做。随着ifelse你并不需要首先创建的NA该列：

mydata$newvar <- ifelse(mydata$var < 10, mydata$var, NA) 

如果您已经创建的NA该列，这将工作：

mydata$newvar[which(mydata$var < 10)] <- mydata$var[which(mydata$var < 10)]