Como usar vários sinais de igual no texto (x, y, expressão (…))

existe uma solução para usar mais de um é igual a sinais em uma expressão (que não estão entre parênteses)? Atualmente estou fazendo isso com "=". Mas isso não é tão legal, já que == e "=" parecem diferentes no enredo.

Amostra mínima:

plot(0:5,0:5, type="n")
saleprice <- 35
revenue <- 98000
text(1, 2, 
     bquote(paste(R(x[G]) == .(saleprice)%.%x[G], " = ", .(revenue))))

Veja a seguinte imagem para o status atual:imagem de amostra

Eu gostaria de usar algo como:

bquote(R(x[G]) == .(saleprice)%.%x[G] == .(revenue))

Mas isso produz erros.

questionAnswers(1)

yourAnswerToTheQuestion