R 如何在光栅列表上使用Lappy

我有一个光栅，我需要比较第一行和最后一行的值。（我想知道，是否有一个连接顶部和底部的集群） 我就是这么做的：

V1=getValues(r,row=1)
V1=V1[V1!=0]
V1=unique(V1)

最后一行也是一样。 然后我会这样做：

V1 %in% V2

没关系。它起作用了。但我需要用很多锉刀来做这件事。 我考虑用这几个光栅创建一个列表，并在列表的每个光栅上运行上面的脚本。我想我可以用

lappy

来做，但我不知道怎么做

或者有可能得到某种数据帧或类似的东西

raster     connected 
r1         TRUE
r2         FALSE
r3         FALSE
...        ...

这将为您提供一个布尔向量

TRUE/FALSE

，其长度为

rasterlist

。请注意，这是未经测试的，因为您没有提供任何示例数据

FUN.raster <- function(r) {
  x <- getValues(r, row = 1)
  x <- x[x!=0]
  x <- unique(x)

  y <- getValues(r, row = nrow(r))
  y <- y[y!=0]
  y <- unique(y)

  x %in% y
}

sapply(rasterlist, FUN.raster)