Tạo đa giác về phạm vi và ranh giới của một Raster đã cho trong R

Tôi muốn tạo hai đa giác.

1. Một trong những phạm vi hình chữ nhật của raster của tôi. Tôi biết tôi có thể đạt được phạm vi của raster bằng cách sử dụng r <- raster("band5.tif") e <- extent(r) plot(e)cho tôi điều này:

2. Làm cách nào tôi có thể tạo MỘT đa giác của đường biên của raster như hình bên dưới?

Đây là những gì raster của tôi trông giống như:

Đây là một ví dụ.

library(raster)
# example data
x <- raster(system.file("external/test.grd", package="raster"))

Để có được phạm vi hình chữ nhật

e <- extent(x)
# coerce to a SpatialPolygons object
p <- as(e, 'SpatialPolygons')  

Để có được một đa giác bao quanh các ô không phải NA

# make all values the same. Either do
r <- x > -Inf
# or alternatively
# r <- reclassify(x, cbind(-Inf, Inf, 1))

# convert to polygons (you need to have package 'rgeos' installed for this to work)
pp <- rasterToPolygons(r, dissolve=TRUE)

# look at the results
plot(x)
plot(p, lwd=5, border='red', add=TRUE)
plot(pp, lwd=3, border='blue', add=TRUE)