IF/THEN/ELSE in R

Question

everyone。

希望有一个简单的语法问题。我试图在R表中创建一个新变量，如果我的患者处于我正在查看的年龄范围内，那么会显示“1”，否则显示“0”。我感兴趣的年龄段在2-155之间。该代码运行时没有任何错误，但不起作用。当我在我的桌子上看，新的变量会说，即使age4是158这是我有：

table$newvar <- if (table$age4>=2 && table$age4 <=155) {table$newvar=1} else {table$newvar=0} 

任何帮助表示赞赏！提前致谢！

Answer 1

两个修改的话：

1. 使用矢量ifelse()功能来生成新的列数据。
2. 合并比较结果时，使用矢量化的&逻辑与运算符。

---

table <- data.frame(age4=seq(1,200,10)); 
table$newvar <- ifelse(table$age4>=2 & table$age4<=155,1,0); 
table; 
## age4 newvar 
## 1  1  0 
## 2 11  1 
## 3 21  1 
## 4 31  1 
## 5 41  1 
## 6 51  1 
## 7 61  1 
## 8 71  1 
## 9 81  1 
## 10 91  1 
## 11 101  1 
## 12 111  1 
## 13 121  1 
## 14 131  1 
## 15 141  1 
## 16 151  1 
## 17 161  0 
## 18 171  0 
## 19 181  0 
## 20 191  0 

---

你的代码是不工作的原因是因为if语句和&&运营商没有量化。 &&运算符仅检查每个操作数向量的第一个元素，并且仅返回表示这两个输入值的逻辑AND结果的一个元素向量。 if语句始终期望其条件为一个元素的向量，并在该元素为true时执行if-branch，如果为false则执行else-branch。

如果您使用的是多元素的向量作为if语句中的条件，你会得到一个警告：

if (c(T,F)) 1 else 0; 
## [1] 1 
## Warning message: 
## In if (c(T, F)) 1 else 0 : 
## the condition has length > 1 and only the first element will be used 

但对于一些奇怪的原因，你不如果你用得到一个警告多元素向量作为操作数&&（或||）：

c(T,F) && c(T,F); 
## [1] TRUE 

这就是为什么你的代码似乎成功（我指的是它没有打印任何警告信息），但它实际上并没有做到预期的目的。

Answer 2

当算术TRUE使用和FALSE成为1和0这样：

transform(table, newvar = (age4 >= 2) * (age4 <= 155)) 

这些也工作：

transform(table, newvar = as.numeric((age4 >= 2) & (age4 <= 155))) 

transform(table, newvar = ((age4 >= 2) & (age4 <= 155)) + 0) 

transform(table, newvar = ifelse((age4 >= 2) & (age4 <= 155), 1, 0)) 

transform(table, newvar = (age4 %in% 2:155) + 0) # assuming no fractional ages