r - R中分层抽样的问题编写函数

Question

我正在尝试编写我的函数来从数据帧中进行分层抽样

strSample<-function(x,grp,n) {
frac<-n/nrow(x)
x %>% group_by(grp) %>% sample_frac(.,frac)
}

其中“x”是数据帧，“grp”是分组变量，“n”是要采集的样本数

当我将其应用于“虹膜”数据集时，使用

strSample(iris,Species,15)

它给了我错误“错误：列grp未知”

我的代码有什么问题？

标签： rfunctiondplyrsampling