R 使用stat_density_2d的等高线内点的比例

如何预测stat_density_2d生成的等高线中的点比例

例如，创建50个随机点

set.seed(2)

points <- tibble(x = rnorm(50), y = rnorm(50))

在第一个等高线内有11个点（约22%）。下一条等高线加起来大约16条（现在总共54%）。等等

有没有办法预测轮廓内的比例？我有兴趣找到包含x%的轮廓。很明显，我可以画很多等高线并检查每个等高线，但我想知道是否还有其他解决方案

ggplot(points, aes(x = x, y = y)) + 
  xlim(c(-3, 3)) +
  ylim(c(-3, 3)) +
  geom_point() +
  stat_density_2d(bins = 5)