несколько элементов bquote в легенде сюжета R

Следующие работы, (скопировать и вставить в R)

a=123
plot(1,1)
legend('bottomleft',legend=bquote(theta == .(a)))

Я хочу, чтобы в легенде было несколько элементов. Все с греческими буквами. В качестве простого примера: если я повторю пункт дважды, код больше не работает

a=123
plot(1,1)
legend('bottomleft',legend=c(bquote(theta == .(a)),bquote(theta == .(a))))

Я пробовал много более сложных выражений, но все они не работали.

Любая помощь будет принята с благодарностью.