3

geom_text() (^ は上付き文字を示します) を使用して、"R^2 = 70%" をプロットに追加したいと考えています。

% 記号がなければ、簡単です。

my.data <- data.frame(x=1:5, y=1:5)
p1      <- ggplot(my.data, aes(x=x, y=y)) + geom_point()
p1      <- p1 + geom_text(x=2.5, y=5, label="R^2 == 70", parse=TRUE)
p1

% を追加することは、予想よりもトリッキーです。2 番目の geom_text() ステートメントを追加することで、なんとか取得できました。

p1 <- p1 + geom_text(x=2.63, y=4.97, label="%")
p1

単一の geom_text() ステートメントでどのように行うことができますか?

4

2 に答える 2

1 


library(ggplot2)

my.data <- data.frame(x=1:5, y=1:5)
ggplot(my.data, aes(x=x, y=y)) + 
  geom_point() + 
  annotate("text", x = 2.5, y = 5, label = "paste(R ^ 2, \" = 70\", \"%\" )", parse = TRUE)

于 2017-05-03T18:36:56.120 に答える