R语言|去重|unique(),duplicated()

qc <- basy[,c(2,7)]

qc <- unique(qc)


index <- duplicated(qc$sfzh)

qc <- qc[!index,]


index <- duplicated(qc$zyh)

qc <- qc[!index,]


sch=sch[!duplicated(sch$ID_NUM), ]