r - 如何用图例中的变量编写方程？

Question

我想在图例中写一个像“R^2=0.00575”这样的方程，数字 0.00575 可以自动嵌入到图例中。这是一个例子。

set.seed(100)
x=rnorm(100)
y=1:100
fit=lm(y~x)
R_squared=format(summary(fit)$r.squared,digits = 3)
plot(x,y,type="l")
legend("topleft",legend =expression(R^{2}~"="~R_squared),bty = "n")

如图所示，变量 "R_squared"没有嵌入等式中。有什么解决办法吗？谢谢。

Answer 1

对于这个任务我认为最好做 parse(text=sprintf(...)) .您可以使用 parse() 将 R 语言语法编码为要解析为 R 表达式的字符串文字。 ，并使用 sprintf() 格式规范以将存储在变量中的任何数字或字符串值嵌入到表达式中。

set.seed(100L);
x <- rnorm(100L);
y <- 1:100;
fit <- lm(y~x);
R_squared <- format(summary(fit)$r.squared,digits=3L);
plot(x,y,type='l');
legend('topleft',legend=parse(text=sprintf('paste(R^2,\' = %s\')',R_squared)),bty='n');

利用 == 事实的替代语法绘制为单个等号:

legend('topleft',legend=parse(text=sprintf('R^2 == %s',R_squared)),bty='n');

见 plotmath documentation .