r - 以概率对数据框中的随机行进行采样

Question

如何在给定概率的情况下随机抽取样本(有或没有替换)？

我正在尝试在 iris 数据框中提取随机行样本，但具有以下物种条件:80% 杂色和 20% 维吉尼亚

> head(iris)
  Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1          5.1         3.5          1.4         0.2  setosa
2          4.9         3.0          1.4         0.2  setosa
3          4.7         3.2          1.3         0.2  setosa
4          4.6         3.1          1.5         0.2  setosa
5          5.0         3.6          1.4         0.2  setosa
6          5.4         3.9          1.7         0.4  setosa 

Answer 1

你可以在 base R 中试试这个:

f.sample <- function(a, percent) a[sample(nrow(a), nrow(a)*percent, replace = TRUE),]

f.sample(iris[iris$Species=="versicolor",], 0.8)
f.sample(iris[iris$Species=="virginica",], 0.2)

您可以相应地设置 replace 参数。