我正在努力尝试将希腊符号绘制为轴标签。由于要循环几个不同比例的图，我想使用一个包含符号名称的向量，而不是在 中使用符号名称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)
我做错了什么？如何通过向量将希腊符号转换为轴标签？