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

Question

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

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吗？还是有一种更有效的方法？