How to use several equal signs in text(x,y,expression(...))

Question

is there a solution to use more than one equals signs in a expression (which are not within brackets)? I'm currently doing it with " = ". But thats not so nice, since == and " = " look different on the plot.

Minimal sample:

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

See the following image for the current status: sample image

I would like to use something like:

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

But it produces errors.

Answer 1

Use {} to put an invisible grouping around the first equality.

text(1, 2, bquote({R(x[G]) == .(saleprice)%.%x[G]} == .(revenue)))