我明白你遇到的困扰了——在R的text()函数里想要输出带上标格式的R²，同时动态插入计算好的两位小数相关系数，直接用expression()确实行不通，因为它会把里面的cor()这类计算当作字面量解析，而不会执行计算得到数值。下面给你两种实用的解决方法：

方法1：使用bquote()插入动态值 #

bquote()的核心作用就是允许你在表达式中嵌入已经计算好的变量值，用.包裹变量即可实现替换：

# 先提前计算并保存两位小数的相关系数
r_squared_val <- round(cor(tkw14_cor$TKW, tkw14_cor$Yield), 2)

# 在text函数中使用bquote生成带格式的文本
text(x = 0.5, y = 0.5, labels = bquote(R^2 == .(r_squared_val)), cex = 1.2)

这里的.会把r_squared_val的实际数值插入到表达式中，同时保留R^2的上标格式，最终会显示类似R²=0.78的格式化文本。

方法2：使用substitute()替换表达式中的符号 #

substitute()可以把表达式中的指定符号替换成你需要的数值，适合更灵活的场景：

r_squared_val <- round(cor(tkw14_cor$TKW, tkw14_cor$Yield), 2)

# 用substitute替换表达式里的占位符
text(x = 0.5, y = 0.5, labels = substitute(R^2 == result, list(result = r_squared_val)), cex = 1.2)

这里我们把表达式中的result占位符替换成计算好的相关系数，同样能实现带格式的动态文本输出。

为什么之前的写法失败？ #

你之前尝试的expression(R^2 == round(cor(...),2))这类写法，问题在于expression()是延迟解析的——它不会执行里面的cor()计算，而是把整个round(cor(...),2)当作文本内容显示出来，自然得不到你想要的数值结果。必须先把相关系数计算好，再通过bquote()或substitute()插入到表达式中才行。

内容的提问来源于stack exchange，提问作者xbarvazx