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

From: Wolski <wolski_at_molgen.mpg.de>
Date: Tue 09 Nov 2004 - 07:07:15 EST


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

R-devel@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel Received on Tue Nov 09 07:24:29 2004

This archive was generated by hypermail 2.1.8 : Fri 18 Mar 2005 - 09:01:17 EST