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

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"))