geom_text(), plotmath et%

Question

Je veux ajouter "R^2 = 70%" à ma parcelle en utilisant geom_text() (où^indique un indice supérieur).

Sans le signe%, il est facile:

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 

Ajout% est plus délicat que prévu. J'ai réussi à l'obtenir en ajoutant une deuxième déclaration geom_text():

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

Comment peut-il être fait avec une seule instruction geom_text()?

Answer 1

Cela fonctionne ...

geom_text(x=2.5, y=5, label="R^2 == 70*'%'", parse=TRUE) 

Answer 2

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)