R：如何在 R 中的数据集上执行 "quota sampling"

Question

我想知道是否有人有任何示例代码以便能够在 R 中执行“配额采样”？

提前致谢！

使用示例数据集更新：

例如我需要以下内容

• 5异常，发生在星期三，湿度等于24
• 3 正常，发生在工作日，湿度小于 24

Answer 1

类似下面的内容可能会回复您的问题：

question1_data=subset(your_data,label==Abnormal & Day=="Wednesday" & Humidity==24)
sample_1=popsamp(5,question1_data)

question2_data=subset(your_data,label==normal & Day=="Workday" & Humidity<24)
sample_2=popsamp(3,question2_data)

Answer 2

popsamp() 函数是 tigerstats 包的一个函数：

set.seed(1837)
require(tigerstats)
str(iris)
quest_1=subset(iris,Species=="setosa") #selecting a sub group of data
quest_1
x=popsamp(4,quest_1)  # sampling in that group 
x # printing sample