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

Question

我尝试过以下内容，但它对我不起作用：

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(%+-%))

我还尝试了How to annotate() ggplot with latex所指出的以下内容，但没有运气：

a <- a + annotate("text", x=0.5, y=0.1, label="%+-%", parse=TRUE)

这也不起作用：

a <- a + annotate("text", x=0.5, y=0.1, label="\pm", parse=TRUE)

Answer 1

这有效：

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)

关键的想法是%+-%是运算符，因此它必须对某些内容进行操作，即它必须采用x %+-% y形式;在这种情况下，我将x和y设为空字符串。