R裁剪栅格的无数据

我想裁剪一些栅格的无数据部分(在1中，无数据为黑色的图像示例)，而无需手动定义范围。

任何想法？

最佳答案

您可以为此使用trim:

library(raster)
r <- raster(ncol=18,nrow=18)
r[39:49] <- 1
r[205] <- 6
s <- trim(r)