latticeCombineGrid: Combine Multiple Lattice Plots in a Faceted Grid (Panels)

In fdetsch/Orcs: Omnidirectional R Code Snippets

Combine Multiple Lattice Plots in a Faceted Grid (Panels)

Description

This function combines multiple lattice plot objects in a faceted grid. Note that the global plot settings (e.g. 'xlim', 'ylim', ...) are taken from the first object though the user can specify whether 'scales' should be identical or not. This is particularly useful when looping over large amounts of data using lapply() or the like (see Examples).

Usage

latticeCombineGrid(
  trellis.list,
  between = list(y = 0.3, x = 0.3),
  as.table = TRUE,
  ...
)

Arguments

trellis.list	A list containing lattice plot objects.
between	Space between panels.
as.table	If TRUE (default), drawing is top left to bottom right.
...	Additional arguments passed to latticeExtra::c.trellis().

Value

A single lattice plot object.

Author(s)

Tim Appelhans

See Also

latticeExtra::c.trellis().

Examples

library(lattice)

p1 = xyplot(1:10 ~ 1:10)
p2 = xyplot(10:1 ~ 1:10)

(
  p = latticeCombineGrid(
    list(p1, p2)
  )
)

if (requireNamespace("raster", quietly = TRUE)) {
  # load data
  # Use a probability map assuming high potential for city expansion is just 
  # resulting from proximity to current urban area:
  prd = raster::raster(system.file("extdata/probability.rst", package = "Orcs"))
  
  # observed city growth between 1990 and 2006
  obs = raster::raster(system.file("extdata/citygrowth.tif", package = "Orcs"))
  
  # masking current urban area since these pixels have no potential for change
  msk = raster::raster(system.file("extdata/citymask.tif", package = "Orcs"))
  
  # create data list
  dat <- list(prd, obs, msk)
  
  # create list of lattice plots
  plist <- lapply(dat, raster::spplot, scales = list(draw = TRUE))
  
  # # draw individually
  # plist[[1]]
  # plist[[2]]
  # plist[[3]]
    
  # combine to grid, using c(1, 3) layout
  p = latticeCombineGrid(plist, layout = c(1, 3))
  print(p)
}

fdetsch/Orcs documentation built on Jan. 9, 2023, 6:14 a.m.