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