从一个栅格中采样随机值，并将这些值分配给新栅格

Question

首先我引入我的原始光栅，我想随机抽样，其值范围为0 - 0.8：

然后我引入我的常量栅格，其中值均为0.与原始栅格相比，此栅格还具有不同数量的列，行和单元格：

然后我想将原始栅格中的随机值分配给我的常量栅格。最终应该看起来像这样：

上面的新栅格是使用以下行创建的：

values(constant_raster) <- runif(ncell(constant_raster))

但是，我不是从均匀分布中分配随机值，而是希望使用基于原始栅格的离散值分布为常量栅格分配随机值。

分布如下：

干杯。