Użyj zmiennej w wyrażeniu plotowania

Question

Próbuję umieścić wyniki regresji (np. R2) na wykresie, ale nie mogę wymyślić jak wywołać zmienną z wyrażenia (to wkleja nazwa zmiennej).

Oto mój kod.

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

Answer 1

Użyj bquote(). Oto przykład z danych fikcyjnych:

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) 

Elementy ekspresji owiniętego .() ocenia się w środowisku, to znaczy wartość R2Val jest podstawiona.

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

Innym potencjalnym rozwiązaniem jest substitute, który działa podobnie:

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

Answer 2

Udało mi się to połączyć za pomocą funkcji zastępczej.

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

Wszystko jest dobre.