使用矢量中的希腊符号绘制轴标签

Question

我正在努力尝试将希腊符号绘制为轴标签.由于循环使用不同比例的几个图,我想使用包含符号名称而不是使用符号名称的向量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)

我做错了什么？如何通过向量获得希腊符号到轴标签？

Answer 1

试试这个:

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