如何在DataFrame中替换数据值？求无需指定else条件的替代函数

嘿，这个问题我之前也纠结过！每次写ifelse都得重复写else部分来保留原数值，确实有点麻烦。给你分享几个不用指定else条件的替代方法，用起来更顺手：

• Base R原生方案：replace()函数
  这是最直接的原生解决方案，专门用来替换向量中满足条件的元素，其他元素会自动保留原值，完全不需要写else逻辑：

  # 先构造你的示例数据
  df <- data.frame(ID = paste0("ID",1:10),VAL = sample(10,10,replace=T),stringsAsFactors = F)
  # 用replace替换VAL等于1的元素为"*"
  df$VAL <- replace(df$VAL, df$VAL == 1, "*")
  

  这个函数的逻辑很清晰：第一个参数是要修改的向量，第二个是筛选条件（返回逻辑向量），第三个是要替换成的值，完美匹配你的需求。

• Tidyverse风格方案：dplyr结合replace()
  如果你平时习惯用tidyverse工具链，可以用dplyr::mutate()搭配replace()来实现，代码更符合管道式编程的风格：

  library(dplyr)
  df <- df %>%
    mutate(VAL = replace(VAL, VAL == 1, "*"))
  

  要是你想用case_when()的话也可以，但它还是需要用TRUE ~ .来匹配所有其他情况，相比之下replace()在单条件替换的场景下更简洁：

  df <- df %>%
    mutate(VAL = case_when(VAL == 1 ~ "*", TRUE ~ as.character(VAL)))
  

• 大数据高效处理：data.table方案
  如果你的数据集规模较大，用data.table的原地修改语法会更高效，直接定位满足条件的行进行修改，其他行完全不受影响：

  library(data.table)
  setDT(df)[VAL == 1, VAL := "*"]
  

  这种方式不仅不用写else，还能避免复制整个数据集，在处理大文件的时候内存占用更低，速度也更快。

内容的提问来源于stack exchange，提问作者Nesio