Verwenden Sie eine Variable in einem Plotmath-Ausdruck

Question

Ich versuche, die Ergebnisse einer Regression (dh R2) in einem Diagramm zu platzieren, aber nicht herausfinden, wie eine Variable innerhalb eines Ausdrucks aufgerufen wird (es klebt der Variablenname).

Hier ist mein Code.

R2Val <- signif(summary(sMod_pre90)$r.squared[1], 2) 
text(92, 4, expression(paste(R^2, " = ", R2Val)), adj = 0, cex = 0.85) 

Answer 1

Verwenden Sie bquote(). Hier ist ein Beispiel mit Dummy-Daten:

set.seed(1) 
DF <- data.frame(A = rnorm(100), B = rnorm(100)) 
mod <- lm(B ~ A, data = DF) 
R2Val<-signif(summary(mod)$r.squared[1], 2) 

Die Teile des Ausdrucks gewickelt in .() in der Umwelt ausgewertet erhalten, das heißt der Wert von R2Val substituiert ist.

plot(B ~ A, data = DF) 
text(1.5, 2, labels = bquote(R^2 == .(R2Val)), adj = 0, cex = 0.85) 

Eine andere mögliche Lösung ist substitute, die ähnlich funktioniert:

plot(B ~ A, data = DF) 
text(1.5, 2, labels = substitute(R^2 == A, list(A = R2Val)), adj = 0, cex = 0.85) 

Answer 2

Ich habe es geschafft, es mit der Ersatzfunktion zusammenzusetzen.

R2Val<-signif(summary(sMod_pre90)$r.squared[1],2) text(92,4,substitute(R^2~"="~R2Val),adj=0,cex=0.85)

ist alles gut.