plainView()
### raster data ###
library(sp)
library(raster)
data(meuse.grid)
coordinates(meuse.grid) = ~x+y
proj4string(meuse.grid) <- CRS("+init=epsg:28992")
gridded(meuse.grid) = TRUE
meuse_rst <- stack(meuse.grid)
# raster stack
m1 <- plainView(poppendorf[[10]])
m1
# SpatialPixelsDataFrame
plainView(meuse.grid, zcol = "soil")
### point vector data ###
## SpatialPointsDataFrame ##
data(meuse)
coordinates(meuse) <- ~x+y
proj4string(meuse) <- CRS("+init=epsg:28992")
# all layers of meuse
plainView(meuse, burst = TRUE)
# only one layer, all info in popups
plainView(meuse)
## SpatialPoints ##
meuse_pts <- as(meuse, "SpatialPoints")
plainView(meuse_pts)
### overlay vector on top of raster ###
plainView(meuse.grid, zcol = "ffreq") + meuse
### polygon vector data ###
data("gadmCHE")
m <- plainView(gadmCHE)
m
## points on polygons ##
centres <- data.frame(coordinates(gadmCHE))
names(centres) <- c("x", "y")
coordinates(centres) <- ~ x + y
projection(centres) <- projection(gadmCHE)
m + centres
### lines vector data
data("atlStorms2005")
plainView(atlStorms2005)
plainView(atlStorms2005, burst = TRUE)Run the code above in your browser using DataLab