从模式的第一次出现到结束设置值NA

你可以用 match 要在找到第一个匹配项后停止搜索:

m = match("remove", vec) - 1L
if (is.na(m)){
  vec 
} else {
  c(head(vec, m), rep(vec[NA_integer_], length(vec)-m))
}

不过,我想你得有一个很大的矢量才能注意到速度差。或者,这可能会更快:

m = match("remove", vec)
if (!is.na(m)){
  vec[m:length(vec)] <- NA 
}

不确定这是短还是快,但有一个选择:

vec[which.max(vec == "remove"):length(vec)] <- NA
vec
#[1] "1"   "2"   NA    "4"   "NaN" "6"   NA    NA    NA    NA   

在这里,我们发现第一次出现“remove”时使用 which.max 然后添加 NA 一直到矢量的末尾。

OP提到总是有一个“remove”元素,所以我们不需要处理其他情况,但是,如果我们仍然想保持一个检查,我们可以添加一个附加条件。

inds <- vec == "remove"
if (any(inds)) {
  vec[which.max(inds) : length(vec)] <- NA
}

我们可以利用 cumsum 关于逻辑向量

vec[cumsum(vec %in% "remove") > 0] <- NA

我们也可以将vec扩展到所需的长度:

`length<-`(vec[1:(which(vec=="remove")-1)],length(vec))
 [1] "1"   "2"   NA    "4"   "NaN" "6"   NA    NA    NA    NA