分层抽样

用R语言进行分层抽样

library(sampling)
strata(data, stratanames=NULL, size, method=c(“srswor”,“srswr”,“poisson”,
“systematic”), pik,description=FALSE)

数据：
| 分层 | 个数|
|-1-|-12|
| 2 | 15 |
|-3-|-25-|
|4 |34 |
| 5| 45|
|-6-|-67-|
| 7| 81 |

data2 <- copy(data)
data2 <- data2[order(分层),]  #非常重要的一个步骤，一定要排序，不然要筛选的样本个数与类别值对应不上。
d1 <- strata(data2,stratanames =c('分层'), size=c(2766,115,76,25,14,2,1,1), method=c("srswr"))
dim(d1)
table(d1$分层)
get_data <- getdata(data2,d1)  #根据getdata()来返回抽样前的样本中。
table(get_data$分层) #校验  是否正确