如何基于每个图层的90百分位值裁剪栅格堆栈图层

Question

我在R：

中创建了一个栅格堆栈

mylist <- list.files(pattern = "\\.img$")
s <- stack(mylist)

并计算了90％的图层：

90quantiles <- quantile(s, probs = .90, na.rm=TRUE)

现在我不知道如何在每一层中裁剪具有高于90等值的像素的区域，或至少获得这些区域的多边形。

非常感谢你。