r - 在绘图标签中组合 Paste() 和 expression() 函数

Question

考虑这个简单的例子:

labNames <- c('xLab','yLabl')
plot(c(1:10),xlab=expression(paste(labName[1], x^2)),ylab=expression(paste(labName[2], y^2)))

我想要的是由变量“labName”定义的字符条目， 'xLab' 或 'yLab' 显示在表达式() 定义的 X^2 或 y^2 旁边。事实上，带有下标的实际文本“labName”被连接到上标表达式。

有什么想法吗？

Answer 1

@Aaron 的替代解决方案是 bquote() 函数。我们需要提供一个有效的 R 表达式，例如在本例中 LABEL ~ x^2，其中 LABEL 是您要从向量 labNames 分配的字符串。 bquote 计算 .( ) 中包含的表达式内的 R 代码，并将结果替换到表达式中。

这是一个例子:

labNames <- c('xLab','yLab')
xlab <- bquote(.(labNames[1]) ~ x^2)
ylab <- bquote(.(labNames[2]) ~ y^2)
plot(c(1:10), xlab = xlab, ylab = ylab)

(注意~只是添加了一点空格，如果不需要空格，请将其替换为*，表达式的两部分将是并列。)