# NOT RUN {
# Example 1: use vectors and a list.
mycolor=list(
c1=matrix(c("red", "blue", "green", "yellow"), nrow=2),
c2=matrix(c("green", "yellow")),
c3=matrix(c("purple", "red")))
xmin=1: 3
xmax=(1: 3)+0.8
ymin=c(0, 1, 2)
ymax=c(1, 3, 5)
ggplot()+
geom_multi_raster(aes(xmin=xmin, xmax=xmax,
ymin=ymin, ymax=ymax, raster=mycolor))
#
# Example 2: the same as example 1
# except flip=TRUE.
ggplot()+coord_flip()+
geom_multi_raster(aes(xmin=xmin, xmax=xmax,
ymin=ymin, ymax=ymax, raster=mycolor), flip=TRUE)
# }
Run the code above in your browser using DataLab