R 主标题中带有'bquote'的正则表达式？

我有一个myplot函数，它使用arg，arg是绘图标题的一部分。我希望arg是类字符或表达式。然而，当arg是类表达式时，我无法使它工作。例如：

myplot <- function(..., arg){
  plot(..., main = bquote(paste("TPR(", .(arg), ")")))
}

# it works for characters
myplot(1, arg="t")

# but it won't work for expressions (I would like to have Greek letters with a "hat" in the title)

myplot(1, arg=expression(hat(alpha[1])))

# however, using directly the expression works:
plot(1, main=bquote(paste("TPR(", hat(alpha[1]), ")")))

myplot这个怎么样

f <- function(lab, tpr=1) {
    if(is.expression(lab)) {
        lab <- lab[[1]]
    }
    plot(1,1,main=bquote(plain(TPR) * (.(lab)) == .(tpr)))
}

f("hatalpha")
f(expression(hat(alpha)))

f这与正则表达式有什么关系？你把这些和R表达式混淆了吗？因为它们是非常不同的东西。谢谢，这就是我要找的。