R 如何放置+；/-绘图文本注释中的加减运算符（ggplot2）？

我尝试了以下方法，但对我无效：

a <- ggplot()
a <- a + geom_point(aes(x=seq(0,1,0.1), y=seq(0,1,0.1)))
a <- a + annotate("text", x=0.5, y=0.3, label="myplot")
a <- a + annotate("text", x=0.5,y=0.2,label=expression(%+-%))

a这是有效的：

a0 <- ggplot()
a0 <- a0 + geom_point(aes(x=seq(0,1,0.1), y=seq(0,1,0.1)))
a0 + annotate("text", x=0.5, y=0.1, label="'' %+-% '' ", parse=TRUE)

a0可以使用unicode表示法（
\u00B1
）：

phantom也可以工作，尽管它几乎完全没有文档，但有必要重新阅读plotmath页面。实际上需要的是
phantom（）
。
a <- a + annotate("text", x=0.5, y=0.1, label="\pm", parse=TRUE)

a0 <- ggplot()
a0 <- a0 + geom_point(aes(x=seq(0,1,0.1), y=seq(0,1,0.1)))
a0 + annotate("text", x=0.5, y=0.1, label="'' %+-% '' ", parse=TRUE)

a <- ggplot()
a <- a + geom_point(aes(x=seq(0,1,0.1), y=seq(0,1,0.1)))
a <- a + annotate("text", x=0.5, y=0.3, label="myplot")
a + annotate("text", x=0.5, y=0.2, label="\u00B1")

a + annotate("text", x=0.5, y=0.2, label="±")