R中用case_when/ifelse处理日期变量不生效如何解决

你的两段代码存在三个共性问题，导致无法得到预期结果：

• 赋值逻辑写错：分支里写的date1 == date2是逻辑判断表达式，运行后只会返回TRUE/FALSE的布尔值，并不会把date2的内容赋值给date1，满足条件时应该直接返回date2作为新的列值。
• 管道操作语法错误：%>%会把前面对象传入后续函数的第一个参数，你直接把case_when()/ifelse()接在管道后，相当于把整个数据框作为这两个函数的第一个输入——而这两个函数第一个参数要求是逻辑向量，传入整个数据框会直接报错，列更新操作必须放在mutate()内执行。
• 分支逻辑不全：case_when()要求覆盖所有可能的情况，你原来的写法只定义了date1 > date2的分支，其余情况没有指定返回值，运行时这部分会返回缺失值NA。

方法1：mutate()搭配条件判断函数 #

最直观的写法，用mutate()指定要更新的date1列，条件满足时取date2的值，否则保留原date1：

library(dplyr)
# 基础R的ifelse实现
dfnew <- dfold %>%
  mutate(date1 = ifelse(date1 > date2, date2, date1))

# 更推荐dplyr内置的if_else，对日期等特殊类型兼容性更好，不会丢失属性
dfnew <- dfold %>%
  mutate(date1 = if_else(date1 > date2, date2, date1))

如果要使用case_when()，需要补全所有分支逻辑，最后用TRUE ~ 原列值兜底所有不满足前置条件的情况：

dfnew <- dfold %>%
  mutate(
    date1 = case_when(
      date1 > date2 ~ date2,
      TRUE ~ date1
    )
  )

方法2：行方向取最小值（最简洁） #

你的需求本质是对每一行，取date1和date2中更早（数值更小）的日期作为新的date1，直接用并行取最小值函数pmin()即可实现，代码最短且对日期类型兼容性极佳：

dfnew <- dfold %>%
  mutate(date1 = pmin(date1, date2))

以你给出的示例测试：当某行date1为2020-06-03、date2为2020-06-01时，上述所有写法都会将该行date1更新为2020-06-01；当date1小于等于date2时，date1会保留原始值，完全匹配预期。

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