在数据集的多列中运行循环以创建新变量

Question

我正在尝试使用一个遍历14列的循环创建新变量，如果该字符串存在于14列中的任何一列中，则返回1；如果该字符串不在14列中的任何一列中，则返回0。 以下代码有效，但很乏味，我希望有人知道一种更有效的方法。

工作代码：

IntellDis <- for (i in 1:2189){
  if(New$Diagnosis1[i]=="Intellectual disabilities [6543]" | 
     New$Diagnosis2[i]=="Intellectual disabilities [6543]" |
...
     New$Diagnosis13[i]=="Intellectual disabilities [6543]" |
     New$Diagnosis14[i]=="Intellectual disabilities [6543]")
       {New$IntellDis[i]=1}
  if(New$Diagnosis1[i]!="Intellectual disabilities [6543]" &&    
     New$Diagnosis2[i]!="Intellectual disabilities [6543]" &&
...
     New$Diagnosis13[i]!="Intellectual disabilities [6543]" &&
     New$Diagnosis14[i]!="Intellectual disabilities [6543]")
       {New$IntellDis[i]=0}
}

显然这很繁琐...

我认为这样可能有效：

IntellDis <- for (i in 1:2189){
  if(New[c(4:17)][i]=="Intellectual disabilities [6543]")
          {New$IntellDis[i]=1}
  if(New[c(4:17)][i]!="Intellectual disabilities [6543]")
          {New$IntellDis[i]=0}
}

但是我收到以下错误：

Error in `[.data.frame`(New[c(4:17)], i) : undefined columns selected

任何建议，不胜感激！ 谢谢！