r语言抽样前对数据的处理

install.packages("TeachingSampling")
library(TeachingSampling)
data(BigLucy)
biglucy=BigLucy #自带数据集
ss.size=rep(as.numeric(table(biglucy$Zone)),table(biglucy$Zone)) #rep重复
table(ss.size) #把数据集基本情况。
biglucy.new=biglucy[order(biglucy$Zone,biglucy$ID),] #只按Zone排
biglucy.new=biglucy.new[ss.size>=10,]
dim(biglucy)
dim(biglucy.new)
biglucy.new=biglucy.new[-which(biglucy.new$Employees==0),]#去除Employees=0的情况

来源于书本