我试图在我的图中添加一个图例,它应该显示我之前计算的一些拟合参数、下标和每个参数的新线,但我似乎不能创建一个可以同时使用substitute()
和paste()
的图例。legend()
似乎总是和argument "legend" is missing, with no default
断绝关系。显然substitute()
不能做新行,而mtext()
有点...与legend()
中人类可读的"bottomright“参数相比,这很麻烦。
这就是我所得到的:
paramX = 1234
paramY = 9876
plot.new()
legend("bottomright",
bty = "n",
paste("x[max] = ", paramX,
"\ny[max] = ", paramY)
)
发布于 2017-01-13 22:58:27
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)
打印此结果:
相关文档:help("legend"); help("plotmath"); help("bquote")
。
最困难的部分是将两个bquote
表达式组合成一个表达式载体。
https://stackoverflow.com/questions/41636903
复制相似问题