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

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)

我发现了一个类似的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"))