Bir vektörün Yunan sembolleriyle eksen işaretlerini çizme

Question

Yunan sembollerini eksen etiketleri olarak çizmeye çalışıyorum. Farklı ölçeklerde ile birkaç araziler döngü için ben gayet iyi çalışıyor yerine expression() içinde sembol adını kullanarak sembolü adını içeren bir vektör, kullanmak istiyorum nedeniyle: Nedense

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

, yapamam

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

Ben benzer bir question buldum, ama ne işlevleri için çalıştı Yunan sembolleri için çalışmak görünmüyor: sembol adını içeren bir vektör ile "mu" yerine

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

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

Neyi yanlış yapıyorum? Bir vektör üzerinden eksen etiketine Yunan sembolü nasıl alınır?

Answer 1

Bu deneyin:

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