R语言避开循环处理数据框离群值的方法

#处理极端值
#定义向量极端值处理函数
dljdz=function(x) {
  DOWNB=quantile(x,0.25)-1.5*(quantile(x,0.75)-quantile(x,0.25))
  UPB=quantile(x,0.75)+1.5*(quantile(x,0.75)-quantile(x,0.25))
  x[which(x<DOWNB)]=quantile(x,0.5)
  x[which(x>UPB)]=quantile(x,0.5)
  return(x)
}

将向量的处理应用到数据框，用apply函数即可实现（行：1，列：2）.

#处理数据框的极端值
exp4=apply(exp3,2,dljdz) #指定对数据框的列进行函数操作