以下を試しましたが、うまくいきません。
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)
ユニコード表現(\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="±")
これは機能します:
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)
重要なアイデアは、%+-%
はoperatorであるため、何かを操作する必要があります。つまり、x %+-% y
;の形式にする必要があります。この場合、x
とy
を空の文字列にしました。