r - 将表达式与指示变量结合用于绘图标签

Question

我在循环中创建多个图，其中我在列表中存储了不同的标签。使用粘贴很容易做到这一点:

i<-1
plot(1,1)
legend("topright", paste("V = ", i))

但是，我也希望有下标，所以我使用了表达式函数:

plot(1,1)
legend("topright", expression("V"[accurate]*" = "))

但是当我尝试结合 paste 和 expression 时，我不再返回它所指的值:

plot(1,1)
legend("topright", paste(expression("V"[accurate]*" = "), i))

我尝试了多种不同的方式来写出上述内容，但我永远无法获得下标和返回“1”。

也许将粘贴和表达式一起使用不是解决此问题的正确方法。

Answer 1

我相信 as.expression和 bquote您可以执行以下操作:

legend("topright", as.expression(bquote("V"[accurate]*" = "*.(i))))

与 bquote() , 任何包裹在 .( ) 中的内容将被命名对象的值替换。