myCrs = crs("+proj=utm +zone=17 +ellps=GRS80 +units=m +no_defs")
x = list(a=rast(matrix(1:9, 3, 3), extent=ext(0,1,0,1),
crs=myCrs),
b=rast(matrix(1:25, 5, 5), extent=ext(-1, 2, -1, 2),
crs=myCrs)
)
mystack = stackRasterList(x)
mystack
mylist = list(
a=rast(matrix(1:36, 6, 6,byrow=TRUE), extent=ext(0,1000,0,1000),
crs=myCrs),
b=rast(matrix(1:144, 12, 12), extent=ext(-200, 200, -200, 200),
crs=myCrs),
c=rast(matrix(1:100, 10, 10), extent=ext(-5000,5000,-5000,5000),
crs=myCrs)
)
mystack = stackRasterList(mylist, mc.cores=1)
mystack
plot(mystack[["b"]], main="stack b")
plot(mystack[['a']],add=TRUE,col=grey(seq(0,1,len=12)),alpha=0.8,legend=FALSE)
Run the code above in your browser using DataLab