如何为图例中的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')

最后一节取自此处

如何将图例中的两个表达式用不同的颜色着色？

- N'ya

Answer 1

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

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

- IRTFM

---

我猜这很容易，但如果你需要任何借口，让我快速说一下帮助页面并没有完全清楚地说明向量将如何使用。这似乎是我设计的方式，但有时期望并不会得到满足。 - IRTFM