r - 将方程添加到 R 中的散点图中

Question

使用“图例”将方程添加到散点图中有点麻烦

一个简单的例子如下：

plot(1:100)

# The below code can work if I add "= 0.1234" directly.
legend(locator(1), expression(paste("Linear model: ", R^2, "= 0.1234",sep="")),
        text.col= "black",cex=1,bty="n")

# The below code cannot work if I add the "ps".
ps = "= 0.1234"

legend(locator(1), expression(paste("Linear model: ", R^2, ps, sep="")), 
       text.col= "red",cex=1,bty="n")

我遇到的真正问题是这个例子有点复杂。

那么我应该如何修改这段代码呢？

Answer 1

“ps”对象作为表达式处理，即不被评估。为了避免这种使用bquote和.()

 legend(locator(1), legend= bquote("Linear model: "* R^2*.(ps)), 
        text.col= "red",cex=1,bty="n")

顺便说一句，第一个版本会更紧凑地表示没有paste：

legend(locator(1), expression(Linear~model*":"~ R^2 == 0.1234),
    text.col= "black",cex=1,bty="n")

唯一需要引用的是分号。