用R中的NA替换文本

Question

我在数据帧jd_df中有一个变量PC_R ，用于描述实验室测试结果。 我想用NA替换此变量中的某些数据（例如tf，QNS，rej）。 我已经试过这段代码：

 jd_df %>%
  replace(PC_R,TF,NA)

和这个：

jd_df %>%
  replace(jd_df,PC_R==TF,NA)    

和这个：

jd_df %>%
  replace(PC_R,"TF","NA")

和这个：

jd_df %>%
  replace(jd_df,PC_R%in%TF,NA)

我不断收到错误：

Error in replace(., jd_df, PC_R %in% TF, NA) : unused argument (NA)

我想知道替换命令是否不可行。

Answer 1

您可以使用case_when实现此目的，如下面的虹膜数据集所示

library(dplyr)
iris <- iris %>% 
  mutate(Species = as.character(Species)) %>% 
  mutate(Species = case_when(
    Species == "setosa" ~ NA_character_, 
    TRUE ~ Species
  ))

可以这样指定多个更改：

iris %>% 
  mutate(Species = as.character(Species)) %>% 
  mutate(Species = case_when(
    Species == "setosa" | Species == "versicolor" ~ NA_character_, 
    TRUE ~ Species
  ))

由reprex软件包 （v0.2.0）创建于2019-02-16。

Answer 2

我发现这可以将多个字符文本更改为NA：

jd_df %>% mutate(PC_R = replace(PC_R, PC_R %in% "TF"|PC_R %in% "tf"|PC_R %in% "rej",NA))

Answer 3

上面的case_when()答案很好！ 一个更简单的替代方法是na_if()函数，该函数将指定的字符串替换为NA 。 因此：

library(dplyr)
iris %>%
  mutate(Species = na_if(Species, "setosa")) 

这将改变所有实例setosa到NA列Species 。 在您的情况下，可能是：

jd_df %>%
  mutate(PC_R = na_if(PC_R, "TF"))

用NA替换所有"TF" 。 您可以根据需要重复代码以捕获所有预期的NA值：

jd_df %>%
  mutate(PC_R = na_if(PC_R, "TF"),
         PC_R = na_if(PC_R, "QNS"),
         PC_R = na_if(PC_R, "rej"))