我有一个list
的raster stacks
,每个栅格堆栈包含不相等数量的栅格。我如何将列表中的栅格数量相加?我已经尝试过length()
,但它只返回列表中的堆栈数量!示例数据:
library(raster)
#reproducible example
set.seed(987)
#our list of rasters
r.lst <- as.list(1:3)
# setting up list pf raster stacks
r1 <- raster(nrows = 1, ncols = 1, res = 0.5, xmn = -1.5, xmx = 1.5, ymn = -1.5, ymx = 1.5, vals = runif(36, 1, 5))
r.lst[[1]] <- stack(lapply(1:7, function(i) setValues(r1,runif(ncell(r1)))))
r.lst[[2]] <- stack(lapply(1:3, function(i) setValues(r1,runif(ncell(r1)))))
r.lst[[3]] <- stack(lapply(1:2, function(i) setValues(r1,runif(ncell(r1)))))
4条答案
按热度按时间yqkkidmi1#
这样做的一种方法如下:
uqjltbpv2#
您可以使用
nlayers
来获取堆栈中的层(光栅)数量,并使用lapply
将该函数应用于列表中的每个元素:总结一下:
ddhy6vgd3#
怎么样:
或
t5zmwmid4#
没有最少的数据很难回答
编辑
有了示例数据,@Where's my towel就有了正确答案
sum(unlist(lapply(r.lst, nlayers)))
考虑看看this post,了解如何为将来的问题创建一个良好的可重复示例。