分解/增加栅格分辨率并通过划分将初始像元值分配给新像元

Disaggregate / increase raster resolution and distribute initial cell values to new cells through division

有没有办法将栅格的分辨率从 0.5 度提高到 0.25 度,并将 0.5 度像元中的值分配到新的 0.25 度像元中?例如,如果一个 0.5 度的单元格的值为 8,那么四个 0.25 度的单元格的值为 2 (8/4)?非常感谢您的帮助!

r <- raster(ncol=2, nrow=2)
r[] <- 8
r2 <- disaggregate(r, fact=2)

可以除以4,如下

library(raster)
r <- raster(ncol=2, nrow=2, vals=8)
r2 <- disaggregate(r, fact=2) / 4