将条件回归方程式写为R中的图例时出错

Question

背景

我试图通过bquote中的bquote来获得回归方程。 使用我的R代码的版本＃1 （参见图片下方的R代码），我得到下面的图片。

但是 ，我需要IF b （参见图片下方的R代码）是“否定” 然后 +符号将被删除。 为了达到这个标准，我想出了我的R代码的第2版 （见图中的R代码）。

题

我想知道如何修复我的版本＃2 R代码中的错误（参见图片下方的R代码）？ Error: unexpected ')' in " bty = "n")"

版本＃1：

plot(1, ty = 'n')
a = .234; b = -.335
legend("center", legend = bquote(bold(Outcome[i] == .(round (a , 2))~ + ~.
(round(b , 2))~"\u00D7"~Predictor[i])), bty = "n")

版本＃2：

legend("center", legend = bquote(bold(Outcome[i] == .(round (a , 2))~ 
ifelse(.(b > 0), + , "") ~.(round(b , 2))~"\u00D7"~Predictor[i])), 
   bty = "n")

Answer 1

对我来说，最简单的解决（也是我通常做在这种情况下-你的情况我也不知道，如果你可以调用ifelse内bquote ）是使用if-else外呼，而不是内部：

plot(1, ty = 'n')
a = .234; b = -.335

if (b > 0) {

 legend("center", legend = bquote(bold(Outcome[i] == .(round (a , 2))~ + ~.
                                       (round(b , 2))~"\u00D7"~Predictor[i])), bty = "n")

} else {

 legend("center", legend = bquote(bold(Outcome[i] == .(round (a , 2))~ .
                                       (round(b , 2))~"\u00D7"~Predictor[i])), bty = "n")

}

输出：