[R] legend in coplot output

[Jorge Magalhaes]

Dear friends:

It's possible make a legend in the coplot output?

My data are:

"dados"<-structure (list (
Qu1 = c(1,2,3,4,5,6,7,8,3,2),
Qu2 = c(3,4,5,6,7,8,9,9,6,3),
Ku1 = structure (factor ( c(1,1,1,1,2,1,2,2,1,1),levels=1:2),.Label=c("Kmin","Kmax")),
Ph1 = structure (factor ( c(1,1,3,2,3,3,2,3,2,1),levels=1:3),.Label=c("Pmin","Pmean","Pmax")),
Th1 = structure( factor( c(1,1,2,4,3,3,2,4,2,1),levels=1:4),.Label=c("Tmin_in","Tmax_in","Tmin_out","Tmax_out"))),
row.names = c("At1","At2","At3","At4","At5","At6","At7","At8","At9","At10"), class="data.frame")

i tried to do:

>cores<-structure(factor( c(1,1,2,4,3,3,2,4,2,1),levels=1:4),.Label=c("red","green4","blue","yellow"))#red=Tmin_in, green4=Tmax_in, blue=Tmin_out and yellow=Tmax_out

> coplot(Qu1 ~ Qu2 | Ku1*Ph1, data = dados, pch = 3, col = cores)

but i need the legend!!!

Have a nice day

Best regards

Jorge


******************************
Jorge M. A. Magalhaes
Quinta do Calvário
bloco 14, 2º Direito trás
5400 Chaves

tel: +351 76 333008
e-mail: jmagalhaes at eng.uminho.pt

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._