r - R图的图例中有多个bquote项

以下作品，(复制并粘贴到R中)

a=123
plot(1,1)
legend('bottomleft',legend=bquote(theta == .(a)))

我想在图例中包含多个项目。
全部带有希腊字母。
举一个简单的例子，如果我重复两次该项目，那么代码将不再起作用

a=123
plot(1,1)
legend('bottomleft',legend=c(bquote(theta == .(a)),bquote(theta == .(a))))

我尝试了许多更复杂的表达式，但是它们都没有用。

任何帮助将不胜感激。

最佳答案

在这种情况下，plotmath无法强制对表达式的调用列表。

> cs <- c(bquote(theta == .(a)),bquote(theta == .(a)))
> cs
[[1]]
theta == 123

[[2]]
theta == 123

> sapply(cs, class)
[1] "call" "call"

如果您自己强制表达，则可以进行以下工作:

> c(as.expression(bquote(theta == .(a))), as.expression(bquote(theta == .(a))))
expression(theta == 123, theta == 123)
> plot(1,1)
> legend('bottomleft',legend= c(as.expression(bquote(theta == .(a))),
+                               as.expression(bquote(theta == .(a)))))

另一种方法是使用sapply强制对表达式的原始调用列表:

plot(1,1)
legend("bottomleft",
       sapply(c(bquote(theta == .(a)), bquote(theta == .(a))), as.expression))

关于r - R图的图例中有多个bquote项，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/7210346/