如何指定＆＃34;如果缺少两个变量＆＃34;？

Question

在数据集“df”中，如果缺少任何变量或check = 0，我想将行标记为“坏”。

df <- data.frame(col1 = c(10, 11, NA, NA, 13),
                 col2 = c(9, NA, NA, 7, 6), check = c(1,0,1,0,0))

if (is.na(df$col1)|is.na(df$col2)|(df$check == 0)){

  df$flag = "bad"

  }else{

  df$flag == "good"
}

代码不起作用，警告信息为：

  

警告信息：在if（is.na（df $ col1）| is.na（df $ col2）|（df $ check ==   0））{：条件有长度＆gt; 1，只有第一个元素   

Answer 1

我们可以使用rowSums

执行此操作

df$flag <- ('Good', 'Bad')[(rowSums(is.na(df[1:2])) > 0 | df$check == 0) +1]

或使用ifelse

df$flag <- with(df, ifelse(is.na(col1)|is.na(col2)|check == 0, "bad", "good"))