Ästhetik muss entweder die Länge 1 oder die gleiche wie die Daten sein (1)

Question

Ich versuche Annotate und Ausdruck Aussagen in ggplot2 zu mischen. Ich bekomme einen konsistenten Fehler "Ästhetik muss entweder die Länge 1 oder die gleiche wie die Daten (1) sein". Mein erster Gedanke war, dass ich in aes die falsche Anzahl von Variablen hatte. Das könnte immer noch stimmen, aber ich konnte meinen Kopf nicht darum drehen, es zu reparieren. Also suchte und fand ich Fehler und Lösungen, die das zugrundeliegende Problem nicht zu lösen schienen. Hier ist mein Code:

r2.val <- .09 
pl <- qplot(c(0,30)) 
pl+annotate(geom="text",x=0,y=28,label=(bquote(Value~is~sigma~R^{2}==. 
(r2.val)))) 

Answer 1

pl <- qplot(c(0,30)) 
r2.val = 0.42 
pl+annotate(geom="text",x=8,y=-.2,label=(paste("Value~is~sigma~R^{2}==", 
               (r2.val)))) 

?

Answer 2

Ich bin nicht vertraut mit bquote aber es sieht aus wie Sie erreichen können, was Sie durch die Verwendung paste0 und Einstellung parse = TRUE in annotate zu tun versuchen:

pl + annotate(geom="text", x=10, y=1, 
       label = paste0("Value~is~sigma~R^2==", r2.val), parse = TRUE)