用下标打印图例并在R中插入存储值

尝试向我的绘图中添加图例，该图例应显示我先前计算的一些拟合参数、下标和每个参数的新行，但我似乎无法将图例与例如

substitute（）

和

paste（）

一起使用

legend（）

似乎总是因为

参数“legend”丢失而中断，没有默认值。显然，
substitute（）
不能写新行，
mtext（）
有点。。。与人类可读的
legend（）
中的“bottomright”参数相比，这很麻烦

就我所知：

paramX = 1234
paramY = 9876

plot.new()

legend("bottomright",
       bty = "n",
       paste("x[max] = ", paramX,
             "\ny[max] = ", paramY)
)

paramX=1234
帕拉米=9876
plot.new（）
expr
paramX=1234
帕拉米=9876
plot.new（）
expr
paramX = 1234
paramY = 9876

plot.new()

expr <- vector("expression", 2)
expr[[1]] <- bquote(x[max]==.(paramX))
expr[[2]] <- bquote(y[max]==.(paramY))

legend("bottomright",
       bty = "n",
       legend = expr)