Plot a raster object over a map. It can be used to plot images from getPngLayer.
tilesLayer(x, add = FALSE, ...)
pngLayer(x, add = FALSE, ...)Arguments
- x
a RasterBrick object; getPngLayer function output these objects.
- add
whether to add the layer to an existing plot (TRUE) or not (FALSE).
- ...
bgalpha, interpolate, or other arguments passed to be passed to
plotRGB
Note
This function is a wrapper for plotRGB
from the raster package. The accuracy of the final plot depends on the
quality of the *.png file, the scale of x and the resolution
setup of the graphic device.
See also
Examples
library(sf)
mtq <- st_read(system.file("gpkg/mtq.gpkg", package = "cartography"))
#> Reading layer `mtq' from data source
#> `/tmp/RtmpmpfIrO/temp_libpath18ee15f22a9e/cartography/gpkg/mtq.gpkg'
#> using driver `GPKG'
#> Simple feature collection with 34 features and 7 fields
#> Geometry type: MULTIPOLYGON
#> Dimension: XY
#> Bounding box: xmin: 690574 ymin: 1592536 xmax: 735940.2 ymax: 1645660
#> Projected CRS: WGS 84 / UTM zone 20N
# Local image
dirpng <- system.file("img/LogoMartinique.png", package = "cartography")
mask <- getPngLayer(mtq, dirpng, crop = TRUE, margin = 0.5)
par(mar = c(0,0,0,0))
ghostLayer(mtq)
pngLayer(mask, add = TRUE)
if (FALSE) {
# Remote image
urlpng = "https://i.imgur.com/gePiDvB.png"
masksea <- getPngLayer(mtq, urlpng, mode = "wb", inverse = TRUE, margin = 0.5)
#Combine
par(mar = c(0,0,0,0))
ghostLayer(mtq)
pngLayer(mask, add = TRUE)
pngLayer(masksea, add = TRUE)
plot(st_geometry(mtq), border="orange", add=TRUE)
}