, как бороться с отрицательными в bquote выражении в R

Question

Привет Я пытаюсь написать выражение с входной переменной, например:

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))))