替换向量中某些值的函数

Question

假设我有两个向量：

a<-c(6,6,NA,NA,9,9,8,NA,NA,7,NA,NA,NA,NA)
b<-c(NA,NA,NA,NA,NA,NA,NA,NA,NA,8,NA,5,7,NA)

如果向量有任何增加，我将值更改为 NA。

说，在向量a中，第五个值是9，从最后一个值6增加所以它将是NA和之后的所有值。而对于b 向量，有一个从5 到7 的变化，所以7 向前必须是NA。

预期输出：

a = c(6,6,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA)
b = c(NA,NA,NA,NA,NA,NA,NA,NA,NA,8,NA,5,NA,NA)

如果向量没有增加，向量保持不变。

如何创建一个函数来实现这个？

Answer 1

这应该可行。

a<-c(6,6,NA,NA,9,9,8,NA,NA,7,NA,NA,NA,NA)
b<-c(NA,NA,NA,NA,NA,NA,NA,NA,NA,8,NA,5,7,NA)

foo <- function(vec){
  na.rm.vec <- vec[!is.na(vec)]
  na.rm.vec[na.rm.vec > na.rm.vec[1]] <- NA
  vec[!is.na(vec)] <- na.rm.vec
  return(vec)
}

foo(a)
# [1]  6  6 NA NA NA NA NA NA NA NA NA NA NA NA
foo(b)
# [1] NA NA NA NA NA NA NA NA NA  8 NA  5  7 NA