Utiliser une variable dans une expression plotmath

Question

J'essaie de placer les résultats d'une régression (ie, R2) dans un graphique, mais je n'arrive pas à comprendre comment appeler une variable depuis une expression (elle colle le nom de la variable).

Voici mon 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

Utilisez bquote(). Voici un exemple de données fictives:

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) 

Les parties de l'expression enveloppé dans .() s'évaluées dans l'environnement, à savoir la valeur de R2Val est substitué.

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

Une autre solution potentielle est substitute, qui fonctionne de la même:

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

Answer 2

J'ai réussi à le mettre en place en utilisant la fonction de remplacement.

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

Tout est bon.