基于2个光栅重新分类光栅

我有两个锉刀( r1 和 r2 )在R中具有相同的空间范围,我想创建一个光栅( r3 )这取决于中的值 r1级 和 r2级 。我可以设置矩阵并使用 raster::reclassify ,但我只能使用其中一个光栅来完成此操作。我正在寻找一种在两个光栅上执行此操作的有效方法。例如(见下文)如果 r1 = 0 和 r2 < 2 ,则, r3 = 0.5 ,但如果 r1 = 1 和 r2<2. ,则, r3 = .8 。那么如果 r1=0 和 r2 > 2 ,则, r3 = 0.7 ,但如果 r1=1 和 r2>2. ,则, r3 = .9 (我还有几个条件要在实际数据上使用)。下面是代码形式的示例。

    library(raster)
    # create two random rasters
    r1 <- raster(matrix(rbinom(16, size=1, prob=.5), nrow=4))
    r2 <- raster(matrix(rpois(16, 2), nrow=4))
    # check that spatial extent is the same
    extent(r1) == extent(r2)

    # here is a reclassify matrix if r1==1
    reclass_m1 <- matrix(
      c(0,2,.8,
        3,5,.9
     ), ncol=3, byrow=TRUE
    )
    # reclassify matrix if r1==0
    reclass_m0 <- matrix(
      c(0,2,.5,
        3,5,.7
      ), ncol=3, byrow=TRUE
    )

    # so if r1==1,  I would want 
    r3 <- reclassify(r2, reclass_m1)

    # if r1==0, I would want 
    r3 <- reclassify(r2, reclass_m0)
    # but I want a single r3 that does this process consistently. 

我看了其他类似的问题,但没有找到我想要的解决方案。我提前感谢你的帮助。