Question

@ aL3xa here有一个非常酷且简单的功能，但这是一个矢量。

我有一个矩阵，并说第2列，是一个变量，我想切断异常值和相关的行。有一个包outliers，我想使用它的算法，但它们似乎也适用于矢量。有什么建议吗？

感谢

Answer 1

从您链接的问题中获取一些代码：

# @aL3xa's function
remove_outliers <- function(x, na.rm = TRUE, ...) {
  qnt <- quantile(x, probs=c(.25, .75), na.rm = na.rm, ...)
  H <- 1.5 * IQR(x, na.rm = na.rm)
  y <- x
  y[x < (qnt[1] - H)] <- NA
  y[x > (qnt[2] + H)] <- NA
  y
}

set.seed(1)
x <- as.data.frame(matrix(rnorm(10000),ncol=100))  # 100 x 100 data frame
y <- remove_outliers(x[,2]) # look for outliers in columns 2

newx<-cbind(x,y)

newx2<-x[!is.na(x$y),]

如果列的值是异常值，则删除矩阵行

1 个答案: