R help - Aug 2007 - Additions to xyplot (lattice)? - legend, ticks, axis label size, text

I have created an xyplot of a time series with the following code...

win.graph(width = 10, height = 7)

panel1 = function(x, y)  {
      panel.loess(x, y, lwd=2.5, span=0.5, col="gray")
      panel.xyplot(x, y, pch=19, col="blue", cex=1.25)
      }

xyplot(oneplusdensity ~ year, data=figdata, aspect="fill", cex=1.5,
      xlab=NULL, ylab=expression("Crabs per 1,000 m"^2),
      xlim=c(1964, 2007), ylim=c(-2, 62),
      scales=list (x=list(tick.number=41, cex=0.8, rot=90),
      y= list(tick.number=7, cex=1.2)), panel=panel1)

I want to do the following things:

(1) Remove the ticks on the top and right boundaries
(2) Increase the size of the y-axis label to be larger than the tick labels
(3) Add a legend with the points and lowess line
(4) Add some annotation (text) in the lower left corner ('text' for
plot()
did not work)

I'm relatively new to lattice and spent a few hours with the manual and 
other help pages. I've begun to wonder if a regular old plot() for this 
would be better. Appreciate any redirection or suggestions.

Thanks,
Dave Hewitt

On 8/30/07, Dave Hewitt <dhewitt at vims.edu>
wrote:
> I have created an xyplot of a time series with the following code...
>
> win.graph(width = 10, height = 7)
>
> panel1 = function(x, y)  {
>       panel.loess(x, y, lwd=2.5, span=0.5, col="gray")
>       panel.xyplot(x, y, pch=19, col="blue", cex=1.25)
>       }
>
> xyplot(oneplusdensity ~ year, data=figdata, aspect="fill",
cex=1.5,
>       xlab=NULL, ylab=expression("Crabs per 1,000 m"^2),
>       xlim=c(1964, 2007), ylim=c(-2, 62),
>       scales=list (x=list(tick.number=41, cex=0.8, rot=90),
>       y= list(tick.number=7, cex=1.2)), panel=panel1)
>
> I want to do the following things:
>
> (1) Remove the ticks on the top and right boundaries
scales = list(tck = c(1, 0), x = ..., y = ...)
> (2) Increase the size of the y-axis label to be larger than the tick labels
ylab = list( expression(...), cex = 2)
> (3) Add a legend with the points and lowess line
See the entry for 'key' in ?xyplot. As a starting point,

key = list(text = list("loess"), lines = list(lwd=2.5, span=0.5,
col="gray"),
           text = list("points"), points = list(pch=19,
col="blue", cex=1.25))
> (4) Add some annotation (text) in the lower left corner ('text' for
plot()
> did not work)
Use panel.text() instead inside your panel function.

-Deepayan
> I'm relatively new to lattice and spent a few hours with the manual and
> other help pages. I've begun to wonder if a regular old plot() for this
> would be better. Appreciate any redirection or suggestions.

Thank you very much... simple and easy fixes.

Three"final" queries:

(1) I need to make a little more room on the left for the larger axis 
label. I tried 'mex' in the list for ylab but that was ignored.

(2) Is it possible to place a tick at each year on the x-axis, but only 
label every other year?

(3) Can the legend pieces be broken into two lines (one for loess and one 
for points)?


At 11:12 AM 8/30/2007 -0700, deepayan.sarkar at gmail.com
wrote:
>On 8/30/07, Dave Hewitt <dhewitt at vims.edu> wrote:
> > I have created an xyplot of a time series with the following code...
> >
> > win.graph(width = 10, height = 7)
> >
> > panel1 = function(x, y)  {
> >       panel.loess(x, y, lwd=2.5, span=0.5, col="gray")
> >       panel.xyplot(x, y, pch=19, col="blue", cex=1.25)
> >       }
> >
> > xyplot(oneplusdensity ~ year, data=figdata, aspect="fill",
cex=1.5,
> >       xlab=NULL, ylab=expression("Crabs per 1,000 m"^2),
> >       xlim=c(1964, 2007), ylim=c(-2, 62),
> >       scales=list (x=list(tick.number=41, cex=0.8, rot=90),
> >       y= list(tick.number=7, cex=1.2)), panel=panel1)
> >
> > I want to do the following things:
> >
> > (1) Remove the ticks on the top and right boundaries
>
>scales = list(tck = c(1, 0), x = ..., y = ...)
>
> > (2) Increase the size of the y-axis label to be larger than the tick
labels
>
>ylab = list( expression(...), cex = 2)
>
> > (3) Add a legend with the points and lowess line
>
>See the entry for 'key' in ?xyplot. As a starting point,
>
>key = list(text = list("loess"), lines = list(lwd=2.5, span=0.5,
col="gray"),
>            text = list("points"), points = list(pch=19,
col="blue",
> cex=1.25))
>
> > (4) Add some annotation (text) in the lower left corner
('text' for plot()
> > did not work)
>
>Use panel.text() instead inside your panel function.
>
>-Deepayan
>
> > I'm relatively new to lattice and spent a few hours with the
manual and
> > other help pages. I've begun to wonder if a regular old plot() for
this
> > would be better. Appreciate any redirection or suggestions.
-----------------------------------------------------------------
Dave Hewitt
Fisheries Science/Crustacean Ecology
Virginia Institute of Marine Science
College of William and Mary
P.O. Box 1346
Gloucester Point, VA  23062
804.684.7333
dhewitt at vims.edu
http://www.vims.edu/fish/students/dhewitt/