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

From: Uwe Ligges <ligges_at_statistik.uni-dortmund.de>
Date: Sun 21 Nov 2004 - 05:08:05 EST

Wolski wrote:

> 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?
>

No! You want to specify "col" rather than "fill" in the following example:

   plot(1:10)
   legend(3,3, c("Hello", "World"), pch=1:2, fill=c("red", "black"))

But what you can easily do to change the box color is:

   plot(1:10)
   opar <- par(fg="blue")
   legend(3, 3, "Hello World", pch=20, col="red", text.col="green")    par(opar)

Uwe Ligges

> 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



R-devel@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel Received on Sun Nov 21 05:15:06 2004

This archive was generated by hypermail 2.1.8 : Sun 21 Nov 2004 - 06:10:58 EST