r - 从矢量绘制带有希腊符号的轴标签

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

我发现了类似的question，但是对函数有效的似乎不适用于希腊符号:

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

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

我做错了什么？如何通过向量使希腊符号成为轴标签？

最佳答案

试试这个:

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

关于r - 从矢量绘制带有希腊符号的轴标签，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/10615334/