Re: [R] help with legend()
Hi
Deepayan Sarkar wrote:
On Friday 17 October 2003 02:20, Martin Maechler wrote:
PaulSch == Schwarz, Paul [EMAIL PROTECTED]
on Wed, 15 Oct 2003 12:09:11 -0700 writes:
PaulSch I am converting some S-PLUS scripts that I use for
PaulSch creating manuscript figures to R so that I can take
PaulSch advantage of the plotmath capabilities. In my
PaulSch S-PLUS scripts I like to use the key() function for
PaulSch adding legends to plots,
AFAIK key() in S+ is from the trellis library section.
The corresponding R package, trellis, has
^^^
lattice, actually :-)
a draw.key() function that may work similarly to S-plus' key()
{Deepayan ?}.
That's correct. Of course, the S-PLUS key() works wih non-trellis graphs as
well, whereas draw.key() will produce a grid object and hence work with grid
graphics only. (I haven't checked Paul's new gridBase package, that may
enable using this for base graphics as well.)
gridBase makes it possible, although it takes a little bit of work.
Here's a simple example.
## First a standard base plot (mangled example from lattice):
data(OrchardSprays)
attach(OrchardSprays)
tmt - sort(as.numeric(treatment))
dec - decrease[order(as.numeric(treatment))]
row - rowpos[order(as.numeric(treatment))]
plot(tmt, dec, type=n)
for (i in unique(row)) {
subset - row == i
lines(tmt[subset], dec[subset], col=i)
}
## Now load lattice (to produce the key) and gridBase (to combine the
## lattice key with the base plot):
library(lattice)
library(gridBase)
## Align grid viewports with base plot:
par(new=TRUE)
vps - baseViewports()
push.viewport(vps$inner, vps$figure, vps$plot)
## Create lattice key:
key - draw.key(list(lines = list(col=1:8),
text =
list(lab=as.character(unique(OrchardSprays$rowpos))),
columns = 4, title = Row position,
background=par(bg),
border=TRUE))
## Use a grid viewport to position the key 3mm in from the top-left
## corner of the plot (NOTE this doesn't quite work properly -- the
## width and height of the key are not calculated correctly
## [Deepayan: It's an error in grid and I'm working on a fix]):
push.viewport(viewport(x=unit(3, mm), y=unit(1, npc) - unit(3,mm),
width=unit(1, grobwidth, key),
height=unit(1, grobheight, key),
just=c(left, top)))
grid.draw(key)
# This just shows where the viewport is
# and shows how it is too big for the key
grid.rect(gp=gpar(col=grey))
## Clean up:
pop.viewport(4)
Paul
--
Dr Paul Murrell
Department of Statistics
The University of Auckland
Private Bag 92019
Auckland
New Zealand
64 9 3737599 x85392
[EMAIL PROTECTED]
http://www.stat.auckland.ac.nz/~paul/
__
[EMAIL PROTECTED] mailing list
https://www.stat.math.ethz.ch/mailman/listinfo/r-help
Re: [R] help with legend()
PaulSch == Schwarz, Paul [EMAIL PROTECTED]
on Wed, 15 Oct 2003 12:09:11 -0700 writes:
PaulSch I am converting some S-PLUS scripts that I use for
PaulSch creating manuscript figures to R so that I can take
PaulSch advantage of the plotmath capabilities. In my
PaulSch S-PLUS scripts I like to use the key() function for
PaulSch adding legends to plots,
AFAIK key() in S+ is from the trellis library section.
The corresponding R package, trellis, has
a draw.key() function that may work similarly to S-plus' key()
{Deepayan ?}.
PaulSch and I have a couple of
PaulSch questions regarding using the legend() function in
PaulSch R.
PaulSch 1) is there a way to specify different colors for
PaulSch the legend vector of text values?
not yet in legend() -- but see below
PaulSch 2) is there a way to reverse the order of the
PaulSch legend items so that the text values precede the
PaulSch symbols?
not yet in legend() --- but it's an open source project living
from community support ...
Can S+ key() do these two things?
If yes, how do you specify it there
{this sounds as if I was willing to consider adding these wished
features to legend }
PaulSch Thanks for your time and patience.
You're welcome,
Martin
__
[EMAIL PROTECTED] mailing list
https://www.stat.math.ethz.ch/mailman/listinfo/r-help
Re: [R] help with legend()
On Friday 17 October 2003 02:20, Martin Maechler wrote:
PaulSch == Schwarz, Paul [EMAIL PROTECTED]
on Wed, 15 Oct 2003 12:09:11 -0700 writes:
PaulSch I am converting some S-PLUS scripts that I use for
PaulSch creating manuscript figures to R so that I can take
PaulSch advantage of the plotmath capabilities. In my
PaulSch S-PLUS scripts I like to use the key() function for
PaulSch adding legends to plots,
AFAIK key() in S+ is from the trellis library section.
The corresponding R package, trellis, has
^^^
lattice, actually :-)
a draw.key() function that may work similarly to S-plus' key()
{Deepayan ?}.
That's correct. Of course, the S-PLUS key() works wih non-trellis graphs as
well, whereas draw.key() will produce a grid object and hence work with grid
graphics only. (I haven't checked Paul's new gridBase package, that may
enable using this for base graphics as well.)
PaulSch and I have a couple of
PaulSch questions regarding using the legend() function in
PaulSch R.
PaulSch 1) is there a way to specify different colors for
PaulSch the legend vector of text values?
not yet in legend() -- but see below
PaulSch 2) is there a way to reverse the order of the
PaulSch legend items so that the text values precede the
PaulSch symbols?
not yet in legend() --- but it's an open source project living
from community support ...
Can S+ key() do these two things?
If yes, how do you specify it there
{this sounds as if I was willing to consider adding these wished
features to legend }
key() is a bit weird, in that it allows multiple arguments of the same name
(as long as the names are text, points, lines and rectangles). The order of
the arguments control the order of column types.
For example,
key(text = list(letters[1:5], col = 1:5),
points = list(col = 1:5),
text = list(letters[6:10]))
will produce a column of text followed by points and then text again (with the
first two columns in different color).
Deepayan
__
[EMAIL PROTECTED] mailing list
https://www.stat.math.ethz.ch/mailman/listinfo/r-help
[R] help with legend()
I am converting some S-PLUS scripts that I use for creating manuscript figures to R so that I can take advantage of the plotmath capabilities. In my S-PLUS scripts I like to use the key() function for adding legends to plots, and I have a couple of questions regarding using the legend() function in R. 1) is there a way to specify different colors for the legend vector of text values? 2) is there a way to reverse the order of the legend items so that the text values precede the symbols? Thanks for your time and patience. -Paul Paul A. Schwarz, Ph.D. Department of Forest Science 342 Richardson Hall Oregon State University Corvallis, Oregon 97331-5752 [EMAIL PROTECTED] (541) 737-8481 (office) (541) 737-1393 (fax) __ [EMAIL PROTECTED] mailing list https://www.stat.math.ethz.ch/mailman/listinfo/r-help
