'래스터'패키지를 사용하여 2 개의 래스터 이미지를 하나의 플롯으로 합치기

Question

내지도의 확대 부분을 원본지도에 추가하고 최종 제품으로 원본지도와 확대/확대 된 부분. 예제로 meuse 데이터 세트를 사용하여 하나는 원래의지도에 래스터의 일부의 확대를 추가 할 수 있도록 할 것 raster 또는 rasterVIS 패키지의 명령이있는 경우

library(sp) 
library(lattice) 
data(meuse) 
coordinates(meuse)=~x+y 
gridded(meuse)<-TRUE 
rasters.m<-list() 
for (i in 1:12){ 
rasDF <- raster(meuse, layer=i) 
rasters.m[[i]]<-rasDF 
} 
stack.sp<-stack(rasters.m) 
plot(stack.sp) # gives a gridded view of the stacked rasters. But now I would like to zoom in.. 
zoom.ent<-zoom(stack.sp,1) # The zoomed in portion appears as a new window, with the boundaries of the zoomed area highlighted in red on the original map. 

나는 확실하지 않다. par 함수를 시도했지만 작동하지 않습니다. 어떤 제안이라도 환영받을 것입니다.

Answer 1

이것은 다소 같은 질문입니다 you asked here. Raster* 개체의 경우 shift 함수를 사용해야합니다.

library(raster) 
library(rasterVis) 

f <- system.file("external/test.grd", package="raster") 
r <- raster(f) 

rZoom <- crop(r, extent(180000, 181000, 330000, 331500)) 

displaced <- shift(rZoom, x = -1200, y = 2000) 

levelplot(r) + levelplot(displaced)