Wow! That's exactly what I am looking for! I have had both books* open in front of me all day to no avail, and, I was spinning round and round - I was waaay off in left field.
Thanks so much! Ben * https://www.r-project.org/doc/bib/R-books_bib.html#R:Sarkar:2008 https://www.r-project.org/doc/bib/R-books_bib.html#R:Murrell:2011 > On Oct 25, 2016, at 8:07 PM, Paul Murrell <p...@stat.auckland.ac.nz> wrote: > > Hi > > This might work, though it's a teensy bit more complicated and a bit manual > (on the left axis labels) and it ignores heights and vertical whitespace ... > > library(lattice) > d <- dim(volcano) > xy <- data.frame(x = 1:d[1], y = volcano[,30] ) > library(grid) > grid.newpage() > pushViewport(viewport(y=0, height=.5, just="bottom")) > # Force identical widths where we can > layout.widths <- lattice.options("layout.widths")[[1]] > layout.widths$ylab <- list(x=1, units="cm", data=NULL) > layout.widths$panel <- list(x=1, units="null", data=NULL) > layout.widths$key.right <- list(x=1, units="cm", data=NULL) > lattice.options(layout.widths=layout.widths) > # Force (width of) left axis labels to be the same > vol_p <- levelplot(volcano, scales=list(y=list(at=seq(10, 60, 10), > labels=rep(" ", 6)))) > print(vol_p, newpage=FALSE, prefix="vol_p") > downViewport("vol_p.panel.1.1.off.vp") > # Draw proper left axis labels > grid.text(seq(10, 60, 10), x=unit(0, "npc") - unit(1, "lines"), > y=unit(seq(10, 60, 10), "native"), just="right", > gp=gpar(cex=.8)) > # Determine width of levelplot panel > border <- grid.get("border", grep=TRUE) > width <- convertWidth(border$width, "in", valueOnly=TRUE) > xscale <- current.viewport()$xscale > upViewport(0) > pushViewport(viewport(y=.5, height=.5, just="bottom")) > # Force identical widths where we can > layout.widths$ylab <- list(x=1, units="cm", data=NULL) > layout.widths$panel <- list(x=width, units="in", data=NULL) > layout.widths$key.right <- list(x=1, units="cm", data=NULL) > lattice.options(layout.widths=layout.widths) > # Force (width of) left axis labels to be the same > xy_p <- xyplot(y ~ x, data = xy, xlim=xscale, > scales=list(y=list(at=seq(100, 200, 20), > labels=rep(" ", 11)))) > print(xy_p, newpage=FALSE, prefix="xy_p") > downViewport("xy_p.panel.1.1.off.vp") > # Draw proper left axis labels > grid.text(seq(100, 200, 20), x=unit(0, "npc") - unit(1, "lines"), > y=unit(seq(100, 200, 20), "native"), just="right", > gp=gpar(cex=.8)) > upViewport(0) > > Paul > > On 26/10/16 10:50, Ben Tupper wrote: >> Hi, >> >> Almost but not quite. It certainly moves the ball down the field, and, >> dang, that would be way too easy! >> >> I have been fiddling with the panel.widths to the lattice::plot method. No >> joy yet. >> >> >> Ben >> >> >>> On Oct 25, 2016, at 5:14 PM, Paul Murrell <p...@stat.auckland.ac.nz> wrote: >>> >>> Hi >>> >>> Does this do what you want ? >>> >>> library(latticeExtra) >>> c(vol_p, xy_p, x.same=TRUE) >>> >>> Paul >>> >>> On 26/10/16 04:30, Ben Tupper wrote: >>>> Thanks, Bert. >>>> >>>> I have used latticeExtra for layering graphics. I'm not sure how I >>>> would use it to align graphics rather superimposing them. >>>> >>>> I shall look into the the custom panel plot but that is very new >>>> territory for me. >>>> >>>> Ben >>>> >>>>> On Oct 25, 2016, at 9:13 AM, Bert Gunter <bgunter.4...@gmail.com> >>>>> wrote: >>>>> >>>>> Write a custom panel function for levelplot() that calls >>>>> panel.xyplot after panel.levelplot. I believe this can also be done >>>>> by the + operator of the latticeExtra package. >>>>> >>>>> You do *not* want to call xyplot after levelplot, as that >>>>> completely redraws the plot. >>>>> >>>>> Cheers, Bert >>>>> >>>>> >>>>> On Oct 25, 2016 2:55 PM, "Ben Tupper" <btup...@bigelow.org >>>>> <mailto:btup...@bigelow.org>> wrote: Hello, >>>>> >>>>> I am drawing a levelplot and an xyplot on a single device as shown >>>>> in the runnable example below. I would like the x axes to align - >>>>> that is for them to cover the same extent left-to-right on the >>>>> device. How do I go about doing that? >>>>> >>>>> ####### # START ####### library(lattice) >>>>> >>>>> d <- dim(volcano) xy <- data.frame(x = 1:d[1], y = volcano[,30] ) >>>>> >>>>> vol_p <- levelplot(volcano) xy_p <- xyplot(y ~ x, data = xy) >>>>> >>>>> print(vol_p, split = c(1, 2, 1, 2), more = TRUE) print(xy_p, split >>>>> = c(1, 1, 1, 2), more = FALSE) ###### #END ###### >>>>> >>>>> >>>>> Thanks! Ben >>>>> >>>>> >>>>>> sessionInfo() >>>>> R version 3.3.1 (2016-06-21) Platform: x86_64-apple-darwin13.4.0 >>>>> (64-bit) Running under: OS X 10.11.6 (El Capitan) >>>>> >>>>> locale: [1] >>>>> en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8 >>>>> >>>>> attached base packages: [1] stats graphics grDevices utils >>>>> datasets methods base >>>>> >>>>> other attached packages: [1] lattice_0.20-33 >>>>> >>>>> loaded via a namespace (and not attached): [1] tools_3.3.1 >>>>> grid_3.3.1 >>>>> >>>>> >>>>> >>>>> Ben Tupper Bigelow Laboratory for Ocean Sciences 60 Bigelow Drive, >>>>> P.O. Box 380 East Boothbay, Maine 04544 http://www.bigelow.org >>>>> <http://www.bigelow.org/> >>>>> >>>>> ______________________________________________ R-help@r-project.org >>>>> <mailto:R-help@r-project.org> mailing list -- To UNSUBSCRIBE and >>>>> more, see https://stat.ethz.ch/mailman/listinfo/r-help >>>>> <https://stat.ethz.ch/mailman/listinfo/r-help> PLEASE do read the >>>>> posting guide http://www.R-project.org/posting-guide.html >>>>> <http://www.r-project.org/posting-guide.html> and provide >>>>> commented, minimal, self-contained, reproducible code. >>>>> >>>> >>>> Ben Tupper Bigelow Laboratory for Ocean Sciences 60 Bigelow Drive, >>>> P.O. Box 380 East Boothbay, Maine 04544 http://www.bigelow.org >>>> >>>> >>>> >>>> >>>> [[alternative HTML version deleted]] >>>> >>>> ______________________________________________ R-help@r-project.org >>>> mailing list -- To UNSUBSCRIBE and more, see >>>> https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the >>>> posting guide http://www.R-project.org/posting-guide.html and provide >>>> commented, minimal, self-contained, reproducible code. >>>> >>> >>> -- >>> Dr Paul Murrell >>> Department of Statistics >>> The University of Auckland >>> Private Bag 92019 >>> Auckland >>> New Zealand >>> 64 9 3737599 x85392 >>> p...@stat.auckland.ac.nz >>> http://www.stat.auckland.ac.nz/~paul/ >> >> Ben Tupper >> Bigelow Laboratory for Ocean Sciences >> 60 Bigelow Drive, P.O. Box 380 >> East Boothbay, Maine 04544 >> http://www.bigelow.org >> >> >> > > -- > Dr Paul Murrell > Department of Statistics > The University of Auckland > Private Bag 92019 > Auckland > New Zealand > 64 9 3737599 x85392 > p...@stat.auckland.ac.nz > http://www.stat.auckland.ac.nz/~paul/ Ben Tupper Bigelow Laboratory for Ocean Sciences 60 Bigelow Drive, P.O. Box 380 East Boothbay, Maine 04544 http://www.bigelow.org ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
