# NOT RUN {
# make an empty plot
visualise()
visualise(window = getExtent(gtRasters$continuous))
coords <- data.frame(x = c(30, 60, 60, 40),
y = c(40, 40, 60, 70),
fid = 1)
(aGeom <- gs_polygon(anchor = coords))
visualise(aGeom)
win <- data.frame(x = c(0, 80),
y = c(0, 80))
withWindow <- setWindow(x = aGeom, to = win)
visualise(expanded = withWindow)
(aRaster <- gtRasters$categorical)
# plot several objects together
visualise(aRaster, aGeom)
# give names
visualise(`a raster` = aRaster, `a geom` = aGeom)
# use graphical parameters ...
visualise(aGeom, linecol = "green")
# ... or a theme
visualise(aRaster, theme = setTheme(title = list(plot = FALSE)))
# }
Run the code above in your browser using DataLab