如何在ggplot2的图例中为一个标签包含希腊/ plotmath字符

Question

我有以下代码，有三种类型的AR级别和四种饮食。我设置了以下情节：

require(ggplot2)
set.seed(123)
ChickWt <- data.frame(ChickWeight, AR = sample(c("p=0", "p=1", "hat(p)"), size = 578, replace = T))

p1 <- ggplot(ChickWt, aes(x=Time, y=weight,
colour=Diet, Group = Chick, linetype = AR)) + geom_line()
p1

产生：

我希望发生的事情是用图例顶部的数学符号\ hat替换图例中的帽子（p）。我如何在传奇中做到这一点？

非常感谢您的建议！

Answer 1

这似乎成功了：

exprvec <- expression( hat(p), p==0, p==1)
p1  + scale_linetype_manual(values=1:4, labels = exprvec)

如果移动标签，以便帽子（p）居中，您可以使用phantom，......或者可能使用guide_legend，尽管帮助页面没有描述＆＃34;居中＆＃34; label.position的选项，我无法接受label.hjust参数。