使用 dplyr 将所有高于阈值的值更改为 NA

编程问答 2022-04-25

问题描述

我有一个数字数据框，我想将大于 8 的所有值更改为 NA。我知道还有其他方法可以做到这一点，但我想使用 dplyr 来实现这一点，这样我就可以将管道与我拥有的其他代码一起使用。

df <- data.frame(c(1:9),c(2:10))

这是我迄今为止尝试过的：

library(dplyr)

df %>%
  mutate(across(everything(),function(x) ifelse(x>8,NA,x)))

df %>%
  mutate(across(everything(),function(x) na_if(x >8)))

解决方法

我们可以将输出分配给原始对象以进行这些更改，因为 %>% 不会执行打印在控制台上的输出。

df <- df %>% 
       mutate(across(everything(),~ ifelse(. > 8,NA,.)))

或者另一个选项是 %<>% 运算符来自 magrittr

library(magrittr)
df %<>%
    mutate(across(everything(),.)))
dataframedplyrdplyrfunctionfunctionfunctionpiperr