警告:条件长度>1

Question

我正在尝试为我的项目编写一个for循环，其中包含一个ifelse语句。我一直收到这样的错误：“条件的长度> 1"，我不知道为什么会出现这种情况。

这是我的代码：

scanning.schools<- vector(mode="character",nrow(valid))
for ( i in seq_len(nrow(school.safety))){
  if (scanning== "Full-Time" & scanning.incident == "Y"){
    scanning.schools[i]<- "Scanning Caught Crime"
    } else if (scanning == "Full Time" & scanning.incident=="N"){
   scanning.schools[i]<- "Crime Occurred after Scanning"
    }
  }

非常感谢！

Answer 1

试试这个：

scanning.schools<- vector(mode="character",nrow(valid))
for ( i in seq_len(nrow(school.safety))){
  if (scanning[i]== "Full-Time" & scanning.incident[i] == "Y"){
    scanning.schools[i]<- "Scanning Caught Crime"
    } else if (scanning[i] == "Full Time" & scanning.incident[i]=="N"){
   scanning.schools[i]<- "Crime Occurred after Scanning"
    }
  }