在R中使用If语句而不使用ifelse

所以我尝试在R中使用if-then语句或if-then打印

if（Futures$Edge==“NONE”）{Futures$Accuracy3->“NA”}

如果边缘没有，我想使

accuracy3

NA，但经过大量在线搜索，我找不到一个不坚持使用ifelse的解决方案。
我不想使用ifelse，因为我以前有另一个if else，它将被否定

完整的代码是

Futures$Accuracy3<- ifelse((Futures$Edge =="EDGE") & (Futures$Guess2 == Futures$Result) , 1, 0) if (Futures$Edge =="NONE") {Futures$Accuracy3->"NA"}

Futures$Accuracy3“NA”}

我继续收到错误消息

警告消息：在if（Futures$Edge==“NONE”）{：条件 长度>1且仅使用第一个元素

这是数据的屏幕截图

我不希望任何无边打印0或1，简单地说是NA。不尝试使用mutate。

关于：

#fake data    Futures<-data.frame(Edge=c('NONE','EDGE','EDGE','EDGE','EDGE','NONE','EDGE','NONE','EDGE')
                       ,Accuracy3=c(0,0,1,1,0,0,1,1,1))

#replace the column Accuracy3 with the ifelse    
Futures$Accuracy3 <- ifelse(Futures$Edge=='NONE', NA, Futures$Accuracy3)
> Futures
  Edge Accuracy3
1 NONE        NA
2 EDGE         0
3 EDGE         1
4 EDGE         1
5 EDGE         0
6 NONE        NA
7 EDGE         1
8 NONE        NA
9 EDGE         1

---

#假数据未来应该有助于充分利用（有用部分）代码和你的数据或一些假数据复制和粘贴在R，帮助你。没有他们，很难检测错误和纠正他们。你想如果边缘= =没有，那么准确的3= = NA？是的，确切地说，Eureka。谢谢。很高兴它的工作！@ ArianModarres如果这个或任何答案已经解决了你的问题，请考虑接受它通过点击勾选。这向更广泛的社区表明，你已经找到了一个解决方案，并给回答者和你自己带来了一些声誉。没有义务这么做。