将带有变量的希腊字符添加到轴标题

Adding greek characters with variables to axis title

我有两个向量 alpha <- c(1,2,3)beta <- c(4,5,6)。我有三个地块,每个地块都使用不同的 alphabeta(等等。第一个地块包含 alpha[1]beta[1]

现在我想为每个图表添加轴标题,例如:"alpha = 1, beta = 4" 和希腊字母。我该怎么做?我找到了一个 similar question,所以我从那里尝试了一些解决方案,但是:

with bquote() 我只能使用一个 = 。所以我可以做

bquote(alpha == .(alpha[1]) * ", " * beta * .(beta[1])) 得到 alpha = 1, beta4

但是我不能添加另一个=

with expression(paste()) 变量像文本一样工作,所以我得到的不是 alpha = 1 alpha = alpha[1]

正确的做法是什么?

我会尝试使用 plotmath list 调用:

plot(1,1, main= bquote(list( alpha == .(alpha[1]) ,  beta == .(beta[1])) )  )