Как раскрасить 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')

последний раздел взят из здесь Результат:

Как раскрасить 2 выражения легенды в разные цвета?

Answer 1

Я посмотрел на странице справки: ?legend.Показывает параметр text.col.Я попытался предложить вектор правильных названий цветов и ... успех:

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