R 图例中的多个 bquote 项

Question

接下来的工作，（复制并粘贴到 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))))

我尝试了许多更复杂的表达式，但它们都不起作用。

任何帮助将不胜感激。

Answer 1

在这种情况下，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))

Answer 2

要强制调用表达式的原始列表，无需使用 sapply()。仅对 c() 构造中的组件之一使用 as.expression() 就足够了：

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

然后 c() 将自动强制整个列表，到表达式类。