主页 / coding / 问题 / 78952580
Accepted
business_of_ferrets
Asked: 2024-09-05 18:34:24 +0800 CST

如果值在序列中仅出现一次，如何估算该值

  • 772

基本上，当某个值仅在一个场合（在本例中是一个月）不同时，我想使用 R 进行插值。假设我的数据如下所示：

    df <- data.frame(id = c(1,1,1,1,1,1,2,2,2,2,2,2), 
      month = c(1,2,3,4,5,6,1,2,3,4,5,6), 
      status = c('a', 'a', 'b', 'a', 'b', 'b', 'a', 'a', 'b', 'b', 'b', 'b'))

当某个状态在序列中仅出现一次时，如何在 ID 内进行插值。在我的示例中，我想将第一个 b（第 3 行）更改为 a，但其他的都不需要更改。

1 个回答

  1. Best Answer

    我不确定您是否想使用滑动窗口将“异常值”替换为其邻居。如果是这样，也许下面的代码应该适合您的目标（假设滑动窗口从左向右移动）

    f <- \(x) {
  l <- length(x)
  if (x[2]==x[3] && x[2]!=x[1]) {
    x[1] <- x[2]
  }
  if (x[l-1]==x[l-2] && x[l-1]!=x[l]) {
    x[l] <- x[l-1]
  }
  for (i in 2:(length(x) - 1)) {
    if (x[i + 1] == x[i - 1] && x[i] != x[i + 1]) {
      x[i] <- x[i + 1]
    }
  }
  x
}

    那么你将获得

    > f(c("a", "a", "b", "a", "b", "a", "b", "b"))
[1] "a" "a" "a" "a" "a" "a" "b" "b"

> f(c("a", "b", "b"))
[1] "b" "b" "b"

> f(c("b", "b", "a"))
[1] "b" "b" "b"

> f(c("a", "b", "c", "d", "c", "a", "b"))
[1] "a" "b" "c" "c" "c" "a" "b"
    • 3

相关问题