ifelse（）が凡例で動作していないR

Question

私のlegend()のifelse()がなぜ動作しないのでしょうか？私は次のエラーを取得する：ここで

**Error in rep(no, length.out = length(ans)) : attempt to replicate an object of type 'language'**

は私のRコードです：

Gi <- 2  
plot(1:10,ty="n") 

legend("topright", 
    legend=ifelse(Gi>1,  ## ! ifelse() Not Working HERE ! ## 
    bquote(paste("Evidence favors A: ",bold('CT'[10]), 
       " = ", .(round(Gi,3)))), 
    bquote(paste("Evidence favors B: ",bold('CT'[01]), 
       " = ", .(round(1/Gi,3))))), 
    pch = " ",cex=1.5, bty="n", inset=c(.005,-.05)) 

Answer 1

私はbquote（）関数は、あなたのために何をするか本当にわからないが、私はあなたのコードを変更しましたあなたのプロットに表示される伝説を少し得た。

これはコードです。あなたが正しいと思ったら教えてください。

Gi <- 2  
plot(1:10,ty="n") 

l <- ifelse(Gi>1, paste0("Evidence favors A: ",'CT[10]'," = ", (round(Gi,3))), 
     paste0("Evidence favors B: ",'CT[01]'," = ",(round(1/Gi,3)))) 

legend("topright", legend=l, pch = " ",cex=1.5, bty="n", inset=c(.005,-.05))