用NA替换R数据帧中的异常值

Question

我在R数据框中有一些数据。我必须去掉其中的异常值。我正在使用boxplot函数来删除其中的异常值。尽管此方法删除了完整的行。

我如何修改它来用NA替换异常值，以便保存数据？

下面是我的代码：

outliers <- boxplot(outlier_H_rem$var1, plot=FALSE)$out
if(length(outliers) == 0)
  { outlier_H_rem1<-outlier_H_rem
  boxplot(outlier_H_rem1$var1)} else { 
  outlier_H_rem1<-outlier_H_rem[-which(outlier_H_rem$var1 %in% outliers),]
  var1<-outlier_H_rem1$var1}
  boxplot(outlier_H_rem1$var1)

Answer 1

outlier_H_rem1 <- outlier_H_rem

outliers <- boxplot(outlier_H_rem$var1, plot=FALSE)$out

outlier_H_rem1$var1[outlier_H_rem1$var1 %in% outliers] <- NA

示例数据如下：

outlier_H_rem <- data.frame(var1 = c(runif(100), 42, 17, 33))