r - 如何从 R 中的 NIFTI 切片中提取图像补丁并保存为 png？

Question

我正在尝试从一片 3d NIFTI 图像中提取 32x32 补丁并将其保存为 png。我在 R 中工作。NIFTI 图像包含 155 个 240x240 像素的切片。我已经在第 63 个切片上找到了感兴趣的区域，但是当我将其导出为 png 时，补丁默认保存为 480x480 像素大小。代码如下所示，其中 ROI 是一个 32x32 的区域，从 x 位置的 58:89、y 的 95:126 和切片 z=63 开始。

library(oro.nifti)

set.seed(123)
arr = array(rnorm(240*240*155), dim = c(240,240,155)) 
img = oro.nifti::nifti(arr) #create NIFTI

png("C:/Users/Downloads/patchimg.png")
image(img[58:89, 95:126, 63], col=gray(0:64/64), xlab="", ylab="", axes=FALSE, useRaster=TRUE)
dev.off()

还有另一种方法可以使导出的png为32x32吗？还是有更有效的方法来做到这一点？