r bquote () - как убрать пробелы вокруг выражения в сценарии

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

plot(1, 2, pch = 10)
text(1, 2, bquote(~ 'Z(' ~ u[2] ~ ') = 2.0% Ni'), cex = 5)