如何使用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)