图例的上标R平方

Question

我想为我的传奇写一个R平方项，但我不知道怎么写。有人能帮帮我吗？我的图例语法是：

legend(2,10, c("BW (MPE=3%, R-squared=0.77)", 
       "MY (MPE=5%, R-squared=0.80)", pch=c(2,3))

我喜欢将R平方表示为R2，就像我们通常在文本中看到的那样。

Answer 1

如果您将bquote和as.expression结合使用，它将会工作

plot(1:10)
legend(2, 10, c(as.expression(bquote("BW (MPE = 3%," ~ R^2 ~ "= 0.77)")),
                as.expression(bquote("MY (MPE = 5%," ~ R^2 ~ "= 0.80)"))), 
       pch=c(2,3))

​

​

Answer 2

这比多次使用c( as.expression ( bquote...要简单得多：

plot(1:10)
legend(2, 10, expression("BW (MPE = 3%," ~ R^2 ~ "= 0.77)",
                 "MY (MPE = 5%," ~ R^2 ~ "= 0.80)"), 
        pch=c(2,3))

理解expression函数实际上是一种创建表达式列表的方法是很有用的，因此逗号被保留为该过程的分隔符。这意味着您不能在想要位于不同元素中的某个内容中使用“裸体”逗号。紧跟在%-signs后面的逗号由引号保护，不会被解析。这可以使用以下命令完整地绘制数学()-ified：

plot(1:10)
legend(2, 10, expression(BW * list(MPE == 3*'%',
                                   R^2 == 0.77),
                         MY * list( MPE == 5*'%',
                                   R^2 == 0.80)
                         ), 
       pch=c(2,3))

这样，唯一需要特别注意的字符是‘%’-符号，因为plotmath()使用该字符来分隔‘特殊’数学标记列表中的项。完整列表请参见?plotmath。