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组