将表达式与绘图标签的指示变量结合使用

Question

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

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

不过，我也希望有下标，所以我使用表达式函数：

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

但是当我尝试结合粘贴和表达式时，我不再返回它所引用的值：

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()，包裹在.( ) 中的任何内容都将替换为命名对象的值。