如何使用ggplot2替换表达式？

Question

我想获得beta的乳胶符号，下标为2。

以下代码：

idx <- 2;
ylab(eval(expression(paste("beta[",idx,"]",sep=""))))

生成标签“beta [2]”而不是“\ beta_ {2}”。我做错了什么？

注意：查看我想要的内容，只需使用ylab(expression(beta[2]))，但我想从变量idx中提取值，而不是使用硬编码值

Answer 1

使用bquote。以下是示例代码段

library(ggplot2)
p1 = qplot(tip, data = tips)
idx = 2;
my.ylab = bquote(beta[2] == .(idx))
p1 + ylab(my.ylab)