如何计算terra包中的聚合事实参数？

Question

terra 包具有聚合函数，允许创建具有较低分辨率（较大单元格）但需要事实参数的新 SpatRaster。

转换很多栅格时，每次都需要计算fact，有没有办法根据另一个栅格的目标分辨率传递fact参数？其他函数将现有栅格作为输入，例如 function(r1,r2)

r1 <- raster(ncol=10,nrow=10)
r2 <- raster(ncol=4,nrow=4)
values(r1) <- runif(ncell(r1))
values(r2) <- runif(ncell(r2))

我努力了

r3 = aggregate(r1,fact=res(r1)/res(r2))

错误：参数“事实”中的 [聚合] 值应 > 0

Answer 1

找到答案了，我把res(r1)/res(r2)倒过来了，应该是

r3 = 聚合（r1，事实=res（r2）/res（r1））

仍然只传递目标光栅分辨率的名称会好得多。