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: [EMAIL PROTECTED] ---W-W----
http://r4proteomics.sourceforg.net
______________________________________________
[EMAIL PROTECTED] mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel
