如何在绘图的文本注释(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(%+-%))

我还尝试了以下内容,如何使用latex来注释()ggplot并没有运气:

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

可以使用unicode表示(\u00B1):

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="±")

Answer 2

这有效:

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为空字符串.