r中的裁剪光栅图

r中的裁剪光栅图,r,plot,raster,R,Plot,Raster,我正在尝试阅读医院平面图(分辨率高于.PNG格式的版本) 这样我就可以在上面放置代表OHS事件的点。我的问题是,我需要能够缩小地图,这样我只能看到该区域的一个子集,因此x轴(代表A2页面的mm)是10:300,y轴是10:380 我已经阅读了数组和绘图,但不知道如何将此绘图子集。如果您能建议如何更改绘图的尺寸,以便我可以“放大”地图的相关部分,我将不胜感激 #Read PNG into raster array r <- readPNG("ICU-map.png") #Set up th

我正在尝试阅读医院平面图(分辨率高于.PNG格式的版本)

这样我就可以在上面放置代表OHS事件的点。我的问题是,我需要能够缩小地图,这样我只能看到该区域的一个子集,因此x轴(代表A2页面的mm)是10:300,y轴是10:380

我已经阅读了数组和绘图,但不知道如何将此绘图子集。如果您能建议如何更改绘图的尺寸,以便我可以“放大”地图的相关部分,我将不胜感激

#Read PNG into raster array
r <- readPNG("ICU-map.png")

#Set up the plot area as A2 with mm as the dimensions
icu <-plot(0, type='n', main="ICU", xlab="x", ylab="y", xlim=c(0, 594), ylim=c(0, 420))

#Get the plot information so the image will fill the plot box, and draw it
lim <- par()
rasterImage(r, lim$usr[1], lim$usr[3], lim$usr[2], lim$usr[4])
grid()
lines(c(1, 1.2, 1.4, 1.6, 1.8, 2.0), c(1, 1.3, 1.7, 1.6, 1.7, 1.0),     type="b", lwd=5, col="white")
#将PNG读入光栅阵列
r
plot(0,xlim=c(0594),ylim=c(0420))
lim
plot(0,xlim=c(0594),ylim=c(0420))
lim