ラスターレイヤーにシェイプファイルをプロットするR

Question

シェイプファイルのポイントを上にしてラスターレイヤーをプロットする必要があります。 私はこれについて前の回答をチェックしましたが、まだ問題があります。 ポイントシェイプファイルとラスターレイヤーを問題なく別々にプロットすることはできますが、一緒に行うことはできません。

私が見る限り、彼らは同じ投影と場所にあるはずです。

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

私は答えを見つけました。同じ問題に遭遇する可能性がある他の人のために答えを見つけました。

溶液は単純である：（限りラスターおよびシェープファイルが同じCRSにあるように）

plot(r) 

plot(shape, add = TRUE)