如何R中

Question

您好我想寫表達一個輸入變量，例如應對bquote表達否定：

a=1 
b=-2 
bquote(y == .(a)*x+.(b)) 

結果是y == 1 * x + -2 不y == 1 * x - 2如我所料。

有沒有辦法處理它？謝謝！

Answer 1

我不知道的一個優雅的方式，你可以測試爲標誌，並返回一個不同的符號，

pm <- function(x){ 
    if(sign(x) == -1L) 
    return(bquote("-"~.(abs(x)))) else 
    bquote("+"~.(x)) 
} 

grid::grid.text(bquote(y== .(a)*x~.(pm(b))))