尝试as.expression()
和bquote()
的组合:
require(ggplot2)
df <- data.frame(x=rnorm(30),y=rnorm(30))
ggplot(df) +
geom_point(aes(x=x,y=y,col='blue')) +
scale_color_manual("Legend",
values='blue',
labels=as.expression(bquote('Prior'~beta[3]%in%'(-0.1 0.1)')))
输出: