R中的样本抛出的阳性问题太少

示例函数有问题。我用附加的数据集试过了

加载后（第9列为事件发生的频率，第11列为相关变量，权重为第8列）

which(kfg[,9]==1)->aj
sample(kfg[aj,11],prob=kfg[aj,8])

Error in sample.int(length(x), size, replace, prob) : 
  too few positive probabilities

这令人困惑，因为

mean(kfg[aj,8])
#[1] 0.0009090909

不是所有的概率都是相同的值，有人能告诉我为什么会发生这种情况吗

可在此处找到数据集：

---

您需要一个

replace=TRUE

或

size

选项，因为存在大量的0概率。否则，

sample

试图返回与输入长度相同数量的元素，但由于缺少正概率而无法返回。

您需要一个

replace=TRUE

或

选项由于存在大量的0概率，因此调整选项。否则，
sample
尝试返回与输入长度相同的元素数，但由于缺少正概率，因此无法返回