我有一个df：

df <- data.frame(ID = c(1, 2, 3, 3, 4, 5, 5, 7, 7, 8),
                 var1 = c('a', 'b', 'c', 'c', 'd', 'e', 'f', 'g', 'h', 'h'),
                 var2 = c(1, 1, 1, 0, 1, 1, 0, 0, 1, 0),
                 var3 = c(21, 50, 40, NA, 29, 45, NA, NA, NA, 46))

我想根据ID中的值替换var3中的NA，如下所示：

df %>% 
  mutate(var3 = case_when(var3 == NA  & ID == 3 ~ 5,
                        var3 == NA  & ID == 5 ~ 5,
                        var3 == NA  & ID == 7 ~ 5,
                        TRUE ~ var3
  ))

但不知什么原因它不起作用？