r - 如何用不同颜色为图例的 2 个表达式着色？

Question

一些数据:

dummy.dt <- data.frame(c(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1000))

plot(dummy.dt, type="n", xlab="x" , ylab="y", xaxt = "n", log = "y")

ABC = 1
XYZ = 2

rp = vector('expression',2)
rp[1] = substitute(expression(italic(A) == MYVALUE), 
                   list(MYVALUE = format(ABC, digits = 3)))[2]
rp[2] = substitute(expression(italic(X) == MYOTHERVALUE), 
                   list(MYOTHERVALUE = format(XYZ, digits = 3)))[2]

legend('top', legend = rp ,bty = 'n')

最后一节摘自here结果:

如何给图例的2个表达式涂上不同的颜色？

Answer 1

我查看了帮助页面:?legend。它显示了一个 text.col 参数。我尝试提供有效颜色名称的向量，然后……成功:

 legend('top', legend = rp ,bty = 'n', text.col=c("red","blue"))