[R] assign same legend colors than in the grouped data plot

[agent dunham]

Dear all, 

Thanks all of u for your help. Now I've another similar problem. I want to
plot within the same plot, different lines, each one in a different color
depending on the factor level. I've been able to do it like this, but if i
try with rainbow colors it doesn't work. Can anybody help me with rainbow
colors, or with colors that you choose, not the ones chosen by R.


tmp1 <- lm(y  ~ x  + factor)

plot(x, y, xlab = "x", ylab = "y", col =factor , bty='L')
legend(locator(1), legend = c("level 1 factor",  "level 2 factor","level 3
factor",  "level 4 factor","level 5 factor"), col =  
seq.int(nlevels(factor)), lty = 1)
for (i in c("level 1","level 2","level 3","level 4","level 5")) {
   J <- factor== i   ;  x1 <- x[J]   ;y1 <- tmp1$fitted[J]   ;Ord <-
order(x1) ;
 lines(x1[Ord], y1[Ord], col=factor[J])}

What it doesn't work: 

...
plot(x,y, xlab = "x", ylab = "y", col=rainbow(nlevels(factor))[factor])
legend ...
for (i in c("level 1","level 2","level 3","level 4","level 5")) {
   J <- factor== i   ;  x1 <- x[J]   ;y1 <- tmp1$fitted[J]   ;Ord <-
order(x1) ;
 lines(x1[Ord], y1[Ord], col=*rainbow*(nlevels(factor))[J])   }

Find attached a sample of my data 
http://r.789695.n4.nabble.com/file/n4407112/dfexamp.dat dfexamp.dat 

Thanks in advance, show crosspide at hotmail.com as user at host.com

--
View this message in context: http://r.789695.n4.nabble.com/assign-same-legend-colors-than-in-the-grouped-data-plot-tp4390641p4407112.html
Sent from the R help mailing list archive at Nabble.com.