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 ______________________________________________ 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.
