[R] [FORGED] Re: lattice: control panel extent on device

[Ben Tupper]

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 <paul at 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.4567 at 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" <btupper at bigelow.org
>>> <mailto:btupper at 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 at r-project.org
>>> <mailto:R-help at 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 at 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
> paul at 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