すべての列で負の値をNAに置き換えますか？

Question

私のデータは、私はNAを持つすべての負の数を交換したい（より多くの列を持つ）は、このような何か

set.seed(112116) 
df <- data.frame(x1 = sample(c(LETTERS, -1:-10), 100, replace = T), 
       x2 = sample(c(letters, -1:-10), 100, replace = T), 
       x3 = sample(c(1:30, -1:-10), 100, replace = T)) 

に見えたとします。私はこのようなもので、それを1つずつ行うことができます。

df <- df %>% mutate(x1 = replace(x1, which(x1<0), NA), 
       x2 = replace(x2, which(x2<0), NA), 
       x3 = replace(x3, which(x3<0), NA)) 

しかし、私は

Answer 1

がmutate_each

df %>% 
    mutate_each(funs(replace(., .<0, NA)))