如果一个变量属于一个集合

Question

我想写以下if条件

if( (k==1)| (k==4)| (k==8) | (k== 11)| (k==12)){
       ....
} else{
       ....
}

以更紧凑的方式，例如就像php 一样，in_array 检查数组中是否存在值。

Answer 1

您可以使用any。

f <- function(k) if (any(k %in% c(1, 4, 8, 11, 12))) 1 else 0
f(1:12)
# [1] 1
f(13:15)
# [1] 0
f(c(1, 4, 8, 11, 12, 13, 14))
# [1] 1
f(c(2, 5, 9, 13, 14))
# [1] 0
f(c(1, 2, 5, 9, 13, 14))
# [1] 1

Answer 2

进一步：如果需要'and'逻辑而不是'or'，则可以使用all()。