请教,我的数据中有两列时间数据,分别是map_time和lactate_time(如上图)。这两列数据都含有缺失值。现在我想生成一列新的数据,取这两个时间中较早的那个作为新的一列,命名为s_time。若有其中一个数据是缺失值,则新的数据也列为缺失值。我的操作如下:
>library(lubridate)
>data$map_time <- ymd_hms(data$map_time)
>data$lactate_time <- ymd_hms(data$lactate_time)
>data$timediff <- difftime(data$map_time, data$lactate_time,units = "hours")
>data$s_time <- ifelse(is.na(data$timediff),NA,
+ ifelse(data$timediff < 0, data$map_time, data$lactate_time))
结果中生成s_time并不是我想要的时间数据,而是数值型数据。请教大家这该如何解决?