R文本结合上标与圆和cor函数

Question

如何将此短语集成到文本功能中： 表达式（R ^ 2，“=”，round（cor（tkw14_cor $ TKW，tkw14_cor $ Yield），2）） 我也试过了 表达式（R ^ 2 == round（cor（tkw14_cor $ TKW，tkw14_cor $ Yield），2））） 和 表达式（R ^ 2~ ==〜round（cor（tkw14_cor $ TKW，tkw14_cor $ Yield），2））） 以及所有“粘贴”的可能性.. 它不像这样工作。 我的目标是打印文字： R ^ 2（上标）=舍入相关系数。

谢谢，

Answer 1

您可以使用bquote功能。

这里的随机示例：

plot(1)
set.seed(1)
value <-  round(cor(rnorm(1000), rnorm(1000)), 2)
text(1,1.2,bquote("R"^"2" ~ " = " ~.(value)))