Как использовать несколько знаков равенства в тексте (x, y, expression (...))

существует ли решение использовать более одного знака равенства в выражении (которое не входит в скобки)? Я сейчас делаю это с помощью = =. Но это не так приятно, так как == и "=" выглядят по-разному на сюжете.

Минимальная выборка:

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

См. следующее изображение для текущего состояния: образец изображения

Я хотел бы использовать что-то вроде:

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

Но он вызывает ошибки.