ギリシャ文字を軸ラベルとしてプロットしようと苦労しています。異なるスケールでいくつかのプロットをループするために、内のシンボル名を使用する代わりに、シンボル名を含むベクトルを使用したいと思います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)
私は何を間違えますか？ベクトルを介して軸ラベルにギリシャ文字を取得するにはどうすればよいですか？