R ifelse 避免更改日期格式

Question

我正在尝试为两个日期制作 ifesle。我有两列 - DateIn 和 DateOut。我需要添加第三个变量，如果有日期值，它将显示“DateOut”，如果有则显示 DateIn：

DateIn     DateOut     Travel date
2010-11-24 <NA>        2010-11-24
2011-12-21 2012-01-21  2012-01-21
2010-10-25 2010-11-25  2010-11-25
2014-01-14 <NA>        2014-01-14

我试着这样做

TravelDate <- ifelse(is.na(DateIn), DateOut, DateIn)

但我刚开始的结果是：

    DateIn     DateOut     Travel date
2010-11-24 <NA>            15018
2011-12-21 2012-01-21      15151
2010-10-25 2010-11-25      14972
2014-01-14 <NA>            14972

旅行日期被归类为“逻辑”有没有办法在不将日期转换为数字的情况下实现结果？

非常感谢！

Answer 1

如果dat是数据集。我假设它is.na(DateOut)来自Travel date专栏

 as.Date(with(dat, ifelse(is.na(DateOut), DateIn, DateOut)),origin="1970-01-01")
#[1] "2010-11-24" "2012-01-21" "2010-11-25" "2014-01-14"

或者你可以这样做：

 dat$Travel.date <- dat$DateOut
 dat$Travel.date[is.na(dat$Travel.date)] <- dat$DateIn[is.na(dat$Travel.date)]
  dat
 #      DateIn    DateOut Travel.date
 #1 2010-11-24       <NA>  2010-11-24
 #2 2011-12-21 2012-01-21  2012-01-21
 #3 2010-10-25 2010-11-25  2010-11-25
 #4 2014-01-14       <NA>  2014-01-14