Wykreślanie etykiet osi za pomocą greckich symboli z wektora

Question

Próbuję wyrysować greckie symbole jako etykiety osi. Ze względu na zapętlenie kilka działek o różnych skalach, chciałbym użyć wektor, który zawiera nazwę symbolu zamiast używania nazwy symbolu ciągu expression(), które działa prawidłowo:

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

Z jakiegoś powodu, nie mogę zastąpić „Mu” z wektorem zawierającym nazwę symbol:

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

znalazłem podobnego question, ale co pracował dla funkcji nie wydaje się pracować dla symboli greckich:

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

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

Co mam zrobić źle? Jak zdobyć grecki symbol na etykiecie osi poprzez wektor?

Answer 1

Spróbuj tego:

xlab = parse(text=paste(k, "*mol/mol"))