R语言-07异常值处理

删除异常值所在行

a<- na.omit(package)
a <- package[complete.cases(package),]
pack <- package[-which(rowSums(is.na(package)) > 0),]

盖帽法处理异常值

#盖帽法处理异常值
#根据散点图，整行替换数据框小于1%的点值=1%的点值，这里大于99%的数据没有处理
##replacement has 1 row, data has 0 说明一个没换
for(i in 17:25){
    q1<-quantile(mdata[,i], 0.01)        #取得时1%时的变量值
    mdata[mdata[,i]<q1,][,i]<-q1
}