A有一个带4个波段的RasterLayer:
>rx<-raster("/media/karimdion/Passport/Essais/po_3804017_bgrn_0000000 tif")
> str(rx)
Formal class 'RasterLayer' [package "raster"] with 12 slots
@ file :Formal class '.RasterFile' [package "raster"] with 12 slots
@ nbands : int 4
@ bandorder : chr "BIL"
@ data :Formal class '.SingleLayerData' [package "raster"] with 13 slots
@ min : num 0
@ max : num 65535
@ band : int 1
@ history : list()
@ title : chr(0)
@ extent :Formal class 'Extent' [package "raster"] with 4 slots
@ xmin: num 655781
@ xmax: num 666701
@ ymin: num 4071522
@ ymax: num 4084598
@ rotated : logi FALSE
@ rotation:Formal class '.Rotation' [package "raster"] with 2 slots
@ geotrans: num(0)
@ transfun:function ()
@ ncols : int 5460
@ nrows : int 6538
@ crs :Formal class 'CRS' [package "sp"] with 1 slots
@ projargs: chr "+proj=utm +zone=32 +datum=WGS84 +units=m +no_defs +ellps=WGS84 +towgs84=0,0,0"
@ z : list()
Run Code Online (Sandbox Code Playgroud)
我希望将每个波段作为RasterLayer放在一个变量中.因此,我将得到4个RasterLayers有1个乐队.我怎么能用R做这个?
使用文件名f(这里使用示例文件进行再现)
f <- system.file("external/rlogo.grd", package="raster")
Run Code Online (Sandbox Code Playgroud)
对于特定的乐队,你可以做到
r <- raster(f, band=2)
Run Code Online (Sandbox Code Playgroud)
或者对于所有乐队
b <- brick(f)
Run Code Online (Sandbox Code Playgroud)
或者(效率较低):
s <- stack(f)
Run Code Online (Sandbox Code Playgroud)