R语言-06.2删除数据过少的数据组

根据sample列的值分组，删除每一组小于2条的数据组

deleteuniquelines <- function(x) {# x为输入的数据框
        stand.col <- x$sample # 设根据x的sample进行删除操作
        count <- table(stand.col)
        if (all(count < 2)) stop("no repeated records")
        else {
                ind <- sapply(stand.col, function(t) ifelse(count[as.character(t)] > 1, TRUE, FALSE))
        }
        return(x[ind, ])
}
a<-deleteuniquelines(maindata) #402组
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容