ベクトルからギリシャのシンボルで軸ラベルをプロットする

Question

ギリシャシンボルを軸ラベルとしてプロットしようとしています。異なるスケールで複数のプロットをループするために、私は正常に動作代わりexpression()内シンボル名を使用するシンボル名を含むベクター、使用したいのために：何らかの理由で

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

を、私はできませんシンボル名を含むベクターで「ムー」を置き換えます

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

私は似たquestionを見つけましたが、何の機能のために働いていたことはギリシャのシンボルのために働くように見えるしません：

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

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

どうしたらいいですか？どのようにベクトルを介して軸ラベルにギリシャのシンボルを取得するには？

Answer 1

これを試してみてください：

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