在 R 中的栅格图层上绘制 shapefile

Question

我想绘制一个栅格图层，上面有来自 shapefile 的点。我已经检查了以前的答案，但我仍然有问题。我可以毫无问题地单独绘制点 shapefile 和栅格图层，但不能一起绘制。

据我所知，它们应该在相同的投影和位置。

require(maptools) 

myproj <- "+proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0"
shape <- readShapeSpatial("directory/mypoints.shp", proj4string = CRS(myproj))

plot(r <- raster(listVI[200]))
plot(shape)

Answer 1

我找到了答案，我会把它放在这里供可能遇到同样问题的其他人使用。

解决方法很简单：（只要栅格和shapefile在同一个CRS中）

plot(r)

plot(shape, add = TRUE)

在 R 中的栅格图层上绘制 shapefile

Plotting a shapefile on a raster layer in R

plot

r

raster

shapefile