在plotmath表达式中使用变量

Question

我试图将回归结果（即R2）置于图中，但似乎无法弄清楚如何从表达式内调用变量（它将粘贴变量名称）。

这是我的代码。

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

Answer 1

使用bquote()。下面是与伪数据的一个示例：

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) 

包裹在.()表达的零件的环境中得到评估，即R2Val值代。

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

另一种可能的解决方案是substitute，其工作原理类似于：

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

Answer 2

我已经设法使用替代函数将它放在一起。

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

一切都很好。