r na si

dat <-  dat %>% mutate(x = replace(x, x<0, NA))
Bowhaven