Нанесение меток осей греческими символами из вектора

Я изо всех сил пытаюсь построить греческие символы как метки осей. Из-за зацикливания нескольких графиков с разными масштабами я хотел бы использовать вектор, содержащий имя символа, вместо использования имени символа в expression(), что отлично работает:

x <- rnorm(10, 5,6)
y <- rnorm(10, 2,1)
xlab <- expression(paste(mu, "mol/mol"))
plot(x,y, xlab = xlab)

По какой-то причине, Я не могу заменить "mu" вектором, содержащим имя символа:

k <- "mu"
xlab <- expression(paste(get(k), "mol/mol"))
plot(x,y, xlab = xlab)

Я нашел аналогичный вопрос, но то, что работало для функций, похоже, не работает для греческих символов:

ylab <- substitute(paste(nn, "mol/mol"), list(nn=k))
xlab <- bquote(.(k) * "mol/mol")

plot(x,y, ylab = ylab, xlab = xlab)

Что делать Я делаю неправильно? Как получить греческий символ для метки оси через вектор?