加载多层栅格

R-Logo 是多层光栅文件（红色，绿色，蓝色）

library(raster)
r <- stack("C:/Program Files/R/R-3.2.3/doc/html/logo.jpg")
plot(r)

RasterStack 对象的各个层都可以通过 [[ 来解决。

plot(r[[1]])