R help - Aug 1999 - legend in coplot output

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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

Where would you like to put your legend?

(There also seems to be a small clipping problem which has crept in
here.  The tick marks along the left and bottom of the plot are being
lost.  I'll look for a fix for that too).

-- 
+----------------------------------------------------------------------+
| Ross Ihaka                         Email:  ihaka at stat.auckland.ac.nz |
| Department of Statistics           Phone:  (64-9) 373-7599 x 5054    |
| University of Auckland             Fax:    (64-9) 373-7018           |
| Private Bag 92019                                                    |
| Auckland, New Zealand                                                |
+----------------------------------------------------------------------+
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._