R语言如何将数据框中含任意数量星号的值替换为NA

dplyr::na_if() 为精确值匹配函数，仅当元素和传入值完全相等时才会替换为NA，因此无法匹配仅包含*、但不全等于"***"的取值，可通过以下两种方式实现需求：

• 基础R写法（无需加载额外包）
  用grepl()做字符匹配，将所有包含*的位置直接赋值为NA即可。注意*是正则特殊字符，加fixed = TRUE参数可直接按字面意思匹配星号，无需转义，效率更高：

  df <- c("***", "P","N", "GC*", "*CA","**G", "L","M")
  df[grepl("*", df, fixed = TRUE)] <- NA
  

  运行后输出结果为：

  [1] NA  "P" "N" NA  NA  NA  "L" "M"
  

• Tidyverse 写法（适配数据框管道操作）
  如果是在数据框处理流程中，可以搭配stringr::str_detect()检测含星号的取值，再用replace()替换为NA，注意正则匹配下需要用\\*转义表示普通星号字符：

  library(dplyr)
  library(stringr)
  
  # 直接操作向量
  df <- df %>% 
    replace(str_detect(., "\\*"), NA)
  
  # 操作数据框指定列示例（假设列名为value）
  df_tbl <- tibble(value = c("***", "P","N", "GC*", "*CA","**G", "L","M")) %>% 
    mutate(value = replace(value, str_detect(value, "\\*"), NA))
  

避坑提示：如果忘记转义*或者没加fixed = TRUE，正则会把*解析为特殊量词，导致匹配逻辑完全错误，得不到预期结果。

内容的提问来源于stack exchange，提问作者Marwah Al-kaabi