Comment écrire une équation avec une variable dans la légende?

Question

J'essaye d'écrire une équation comme "R^2 = 0.00575" dans la légende, et le nombre 0.00575 peut être incorporé automatiquement dans la légende. Voici un exemple.

set.seed(100) 
x=rnorm(100) 
y=1:100 
fit=lm(y~x) 
R_squared=format(summary(fit)$r.squared,digits = 3) 
plot(x,y,type="l") 
legend("topleft",legend =expression(R^{2}~"="~R_squared),bty = "n") 

Comme le montre la figure, la "R_squared" variable est pas intégrée dans l'équation. y-a-t'il une solution? Merci.

Answer 1

Pour cette tâche, je pense qu'il est préférable de faire parse(text=sprintf(...)). Vous pouvez coder la syntaxe du langage R dans le littéral de chaîne à analyser dans une expression R en utilisant parse() et utiliser les spécifications de format sprintf() pour incorporer les valeurs numériques ou de chaîne stockées dans les variables dans l'expression.

set.seed(100L); 
x <- rnorm(100L); 
y <- 1:100; 
fit <- lm(y~x); 
R_squared <- format(summary(fit)$r.squared,digits=3L); 
plot(x,y,type='l'); 
legend('topleft',legend=parse(text=sprintf('paste(R^2,\' = %s\')',R_squared)),bty='n'); 

Une syntaxe alternative qui tire parti du fait que == est tracée en un seul signe égal:

legend('topleft',legend=parse(text=sprintf('R^2 == %s',R_squared)),bty='n'); 

Voir la plotmath documentation.

Answer 2

Vous pouvez également utiliser bquote:

set.seed(100L); 
x <- rnorm(100L); 
y <- 1:100; 
fit <- lm(y~x); 
R_squared <- format(summary(fit)$r.squared,digits=3L); 
plot(x,y,type='l'); 
legend('topleft',legend=bquote(R^{2} ~ "=" ~ .(R_squared)),bty='n'); 

Plus d'informations sur la substitution partielle des expressions avec bquote se trouve here, qui définit la fonction:

Un analogue de la macro backquote LISP. bquote cite son argument sauf que les termes enveloppés dans.() sont évalués dans l'environnement spécifié.