library(raster)
library(sp)
b <- brick(system.file("external/rlogo.grd", package="raster"))
## using plotRGB
plotRGB(b)
## convert brick to list
lout <- rgb2spLayout(b)
lout_alph <- rgb2spLayout(b, alpha = 0.5)
## create random spatial points for plotting
df <- data.frame(dat = rnorm(100, 2, 1),
x = rnorm(100, 50, 20),
y = rnorm(100, 50, 25))
coordinates(df) <- ~x+y
## plot spatial points with rgb background
spplot(df, sp.layout = lout)
spplot(df, sp.layout = lout_alph)
Run the code above in your browser using DataLab