r-如果na出现在向量中，则使所有后续元素na

Question

一旦在向量中出现初始na后，我想用na替换该向量中的所有后续值。

例如，如果x = c(0, 0, NA, 0, 0, 1, 2)

我渴望： x = c(0, 0, NA, NA, NA, NA, NA)

如何做？

Answer 1

可以做：

x <- ifelse(cumsum(is.na(x)) > 0, NA, x)

或更快：

x[cumsum(is.na(x)) > 0] <- NA

输出：

[1]  0  0 NA NA NA NA NA

Answer 2

v <- c(0,0, NA, 0, 0, 1, 2)
v[ as.logical(cummax(is.na(v))) ] <- NA
v
# [1]  0  0 NA NA NA NA NA

一个人也可以使用

v[ dplyr::cumany(is.na(v)) ] <- NA