text colour in legend

hello,


the following example gives a plot with a legend:


plot(-10:10,-10:10,type="n")
x=1:10
y=1:10
tt=c("A","B","C","D","E","F")
text(x,y,tt,cex=.8)
legend(-10,10,paste(tt," ",x,y),text.col=c(2:4))  # each row in different  
colour

but how can I colour the legend text by "column" meaning tt in red, x in  
blue and y in green?

thanks for your help.

marcus

This is possible, using a bit of a trick with legend(). Instead of
printing each row in sequence, we print each column in sequence:

x <- 1:10
y <- 1:10
tt <- LETTERS[1:10]

plot(x, y, pch = tt)

# Now use legend. Modify the vector of
# text items here so that each set of 10
# elements are in sequence. Modify the color
# argument to be a sequence of 10 of each color
# set the 'ncol' argument to 3

legend(1, 10, c(tt, x, y), 
       text.col = rep(2:4, each = 10), 
       ncol = 3) 


HTH,

Marc Schwartz