使用dplyr的一种方法：

library(dplyr)

a <- c(0, 1, 2, 3, 4, NA, NA, 7)
b <- c(0, 0, 0, 0, 0, 0, 1, 0)

dat <- 
  tibble(
    A = a,
    B = b
  ) 

dat2 <- 
  dat %>% 
  mutate(
    A = if_else(B == 1, 99, A)
  )

或者一个非常简单的直接方式a[b==1] = 99

在两个向量具有相同长度的假设下，你可以仅仅基于b创建logicals的“索引”向量，并且使用它来索引a的元素以用于值分配

b.index <- b == 1
a[b.index] = 99 
# or in one line
a[b == 1] = 99 
a
[1]  0  1  2  3  4 NA 99  7