## Not run:
# 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[[5]])
# 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)
# ## End(Not run)
Run the code above in your browser using DataLab