From wolski at molgen.mpg.de  Mon Nov  8 21:07:15 2004
From: wolski at molgen.mpg.de (Wolski)
Date: Mon Nov  8 21:07:26 2004
Subject: [Rd] whishlist: legend - changing color of the boxes-border
Message-ID: <200411082107150807.11DBEB31@mail.math.fu-berlin.de>

Hi,

Drawing a legend I would like to be able to specify the color of boxes which are drawn if fill or density is specified.
eg.
legend(0,40000,c("raw","LR/PR-TPS"),fill=c(1,2),col=c(1,2),density=c(20,20),angle=c(-20,45),bty="n")

Currently the color of the boxes -- border is always black and can *not* be changed. To get this option only a *minimal* change is required.
Please consider the following code snipped copied from the function legend (package graphics).

The sensible line is marked by ###<-

 if (mfill) {
        if (plot) {
            fill <- rep(fill, length.out = n.leg)
            rect2(left = xt, top = yt + ybox/2, dx = xbox, dy = ybox, 
                col = fill, density = density, angle = angle, 
                border = "black")                                                          ####<--
        }
        xt <- xt + dx.fill
    }

Changing this line from 

border="black"
to 

border=col.

Will enable to specify the color of the boxes borders.

If specifying the colors by param _fill_ the parameter _col_ is not used anyway but still available and set already to black in the parameter declaration. Therefore why not use it to specify colors to borders of boxes?


Yours
/E





Dipl. bio-chem. Eryk Witold Wolski             @    MPI-Moleculare Genetic   
Ihnestrasse 63-73 14195 Berlin                'v'                            
tel: 0049-30-83875219                        /   \                           
mail: witek96@users.sourceforge.net        ---W-W----                        
http://r4proteomics.sourceforg.net


[Rd] whishlist: legend - changing color of the boxes-border
Wolski