我在R中有一个SF-对象.它看起来如下所示:
Type Value Geometry
A 1 ()
A 3 ()
B 2 ()
A 1 ()
C 4 ()
在几何图形列中，将存储多边形要素的几何图形.
我想对随机行进行采样，直到达到或超过一个阈值(比方说5)，即Value列中的值之和.
如果在上面的示例中，对第1、4和5行进行了采样，则采样将停止.
你可以使用while循环来判断每次迭代的总和:
library(tidyverse)
df <- tibble(type = c('a', 'a', 'b', 'a', 'c'), value = c(1, 3, 2, 1, 4))
samples <- tibble()
sample_sum <- 0
while (sample_sum < 5) {
ix <- sample(1:nrow(df), size = 1, replace = TRUE)
samples <- bind_rows(samples, slice(df, ix))
sample_sum <- sum(samples$value)
}