如何合并图例中多个项目的表达式？

Question

我似乎无法建立一个混合文字和表达式的图例。 我需要使用bquote在表达式中添加一个值，但似乎无法将其与图例中另一个项目的文本连接起来。 例如：

legend_text <- "text"
beta <- 0.01  # this is a variable
if (beta > 0)
    legend_text = c(bquote(beta == .(beta)), legend_text)

plot(1, type="n")
legend("topright", legend=legend_text, text.col="red")  # doesn't work for two items
legend("bottomright", legend=bquote(beta == .(beta)), text.col="blue") # works as expected

有任何将两个项目混合使用以获得预期结果的想法吗？

Answer 1

也许将整个表达式作为表达式传递会起作用

plot(1, type="n")
legend("topright", legend=as.expression(legend_text), text.col="red")
legend("bottomright", legend=bquote(beta == .(beta)), text.col="blue") # works as expected