如何在特定文本匹配中替换R中的值NA

我们可以使用

grepl

。它检查

备注

中的错误字符串，并替换为NA

library(dplyr)

sample_df %>% 
  mutate(Remark= case_when(grepl("Error", Remark) ~ "NA",
                           TRUE ~ Remark))

输出：

# A tibble: 5 x 2
  `Product Code` Remark
           <dbl> <chr> 
1       12200234 Done  
2       12200234 Done  
3       12200205 NA    
4       12200256 NA    
5       12200126 NA  

#一个tible:5 x 2
`产品代码`备注
112200234完成
212200234完成
312200205北美
412200256 NA
5 12200126 NA

需要（gData）
myDf$Remark[startsWith（myDf$Remark，“Error”）]另一个选项

library(stringr)
library(dplyr)
sample_df %>% 
    mutate(Remark= case_when(str_detect(Remark, "Error") ~ NA_character_,
                       TRUE ~ Remark))

# A tibble: 5 x 2
  `Product Code` Remark
           <dbl> <chr> 
1       12200234 Done  
2       12200234 Done  
3       12200205 NA    
4       12200256 NA    
5       12200126 NA  

require(gData)

myDf$Remark[startsWith(myDf$Remark, "Error")] <- NA


library(stringr)
library(dplyr)
sample_df %>% 
    mutate(Remark= case_when(str_detect(Remark, "Error") ~ NA_character_,
                       TRUE ~ Remark))