R 文本将上标与 round 和 cor 函数结合起来
R text combine superscript with round and cor functions
如何将这个短语集成到文本函数中：
表达式(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)))
以及所有 'paste' 种可能性..
它不是这样工作的。
我的目标是打印文本：
R^2（作为上标）= 四舍五入的相关系数。
谢谢，
您可以使用bquote函数。
此处随机示例：
plot(1)
set.seed(1)
value <- round(cor(rnorm(1000), rnorm(1000)), 2)
text(1,1.2,bquote("R"^"2" ~ " = " ~.(value)))
如何将这个短语集成到文本函数中： 表达式(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))) 以及所有 'paste' 种可能性.. 它不是这样工作的。 我的目标是打印文本： R^2（作为上标）= 四舍五入的相关系数。
谢谢，
您可以使用bquote函数。
此处随机示例：
plot(1)
set.seed(1)
value <- round(cor(rnorm(1000), rnorm(1000)), 2)
text(1,1.2,bquote("R"^"2" ~ " = " ~.(value)))