Question

如何使用一个值不能比前一个值高2倍的标准来删除异常值。

这是我的尝试：

x<-c(1,2,6,4,10,20,50,10,2,1)

remove_outliers <- function(x, na.rm = TRUE, ...) {
  for(i in 1:length(x))
  x < (x[i-1] + 2*x)
  x
}

remove_outliers(y)

预期结果：1,2,4,10,20,2,1

谢谢！

Answer 1

我认为应该在您的数据中删除前10个，因为10> 2 * 4。这是一种无需循环即可完成所需操作的方法。我使用dplyr版lag。

library(dplyr)
x<-c(1,2,6,4,10,20,50,10,2,1)
x[c(TRUE,na.omit(x<=dplyr::lag(x)*2))]
[1]  1  2  4 20 10  2  1

修改

要与data.frame：
一起使用
df <- data.frame(id=1:10, x=c(1,2,6,4,10,20,50,10,2,1)) df[c(TRUE,na.omit(df$x<=dplyr::lag(df$x,1)*2)),] id x 1 1 1 2 2 2 4 4 4 6 6 20 8 8 10 9 9 2 10 10 1

Answer 2

一个简单的祝福：

bool<-sapply(seq_along(1:length(x)),function(i) {ifelse(x[i]<2*x[i-1],FALSE,TRUE)})

 bool
[[1]]
logical(0)

[[2]]
[1] TRUE

[[3]]
[1] TRUE

[[4]]
[1] FALSE

[[5]]
[1] TRUE

[[6]]
[1] TRUE

[[7]]
[1] TRUE

[[8]]
[1] FALSE

[[9]]
[1] FALSE

[[10]]
[1] FALSE

导致：

x[unlist(bool)]
[1]  1  2  4 10 20  1

根据前面的值删除异常值

2 个答案: