在R中，如何使用plotmath将字符串函数参数扩展为数学符号？

Question

下面是一个示例：

   PMEx <- function(t) {
   y <- (1:10)^2
   plot(1:10,y,type="l")
   text(2,90,label="This is NOT what I want -->",adj=0)
   text(2,80,label="This IS what I want -->",adj=0)
   text(2,70,label="This is NOT what I want -->",adj=0)  
   #  --- These are representative lines of code --- 
   text(5,90,label=expression("x[0]"))  # This is NOT what I want 
   text(5,80,label=expression(x[0]))    # This IS what I want
   text(5,70,label=expression(t))       # This is NOT what I want  
} # End of PMEx().  
RunPMEx <- function() { 
   PMEx("x[0]") 
} # End of RunPMEx().  
RunPMEx()

这段代码生成了一个包含文本行的图，其中一行显示了我想要的内容(带有下标0的字母x)，另外两行显示了使用expression()时发生的事情(不是我想要的内容)。我已经尝试了Stack Overflow中的各种建议，但在这种情况下都不起作用(例如，使用bquote(.(t))、粘贴、解析、替换)。最后一个文本(...)line of PMEx(t)是我想要的原型。