根据先前的值删除异常值

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。这是一种无需循环即可执行所需操作的方法。我正在使用 lag 的 dplyr 版本。

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

根据先前的值删除异常值

Remove outliers based on a preceding value

r

outliers