这可能是一个非常简单的解决方法,但是这里…我试图比较R中的两个日期向量(最初不是作为日期向量输入):如果第二个是NA而第一个不是,则返回第一个值失踪;如果第二个日期没有丢失,则返回两个日期中最大的日期;或者如果两个值都缺失则返回NA.例如,对于下面提供的数据,我希望lastdate计算如下:
v1 v2 lastdate
1/2/2006 NA 1/2/2006
1/2/2006 12/2/2006 12/2/2006
NA NA NA
我编写了一个公式来避免循环遍历每一行(这些数据中为85K),如下所示:
lastdate <- function(lastdate1,lastdate2){
if (is.na(lastdate1)==T & is.na(lastdate2)==T) {NA}
else if (is.na(lastdate2)==T & !is.na(lastdate1)) {as.Date(lastdate1,format="%m/%d/%Y")}
else {max(as.Date(lastdate2,format="%m/%d/%Y"),as.Date(lastdate1,format="%m/%d/%Y"))}
}
dfbobs$leaveobsdate <- lastdate(as.Date(dfbobs$leavedate1,format="%m/%d/%Y"),as.Date(dfbobs$leavedate2,format="%m/%d/%Y"))
最后一行是告诉它比较两个日期向量,但是因为我得到错误而不太正确
Warning messages:
1: In if (is.na(lastdate1) == T & is.na(lastdate2) == T) { :
the condition has length > 1 and only the first element will be used
2: In if (is.na(lastdate2) == T & !is.na(lastdate1)) { :
the condition has length > 1 and only the first element will be used
我确定这是非常愚蠢的,可能有一个更简单的方法来做到这一点,但任何帮助将不胜感激.
编辑:我现在尝试使用ifelse函数来处理向量,如建议的那样,但比较,如果我键入单个值,则工作(例如,lastdate(“1/1/2006”,“1/2 / 2006“)),如果我在数据帧向量上尝试它,就会生成NA.代码如下:
lastdate <- function(lastdate1,lastdate2){
ifelse(is.na(lastdate1==T) & is.na(lastdate2==T), NA,
ifelse(is.na(lastdate2)==T & !is.na(lastdate1), as.Date(lastdate1,format="%m/%d/%Y"),
ifelse(!is.na(lastdate2) & !is.na(lastdate1), max(as.Date(lastdate2,format="%m/%d/%Y"),as.Date(lastdate1,format="%m/%d/%Y")),NA)))
}
dfbobs$leaveobsdate <- as.Date(lastdate(as.Date(dfbobs$leavedate1,format="%m/%d/%Y"),as.Date(dfbobs$leavedate2,format="%m/%d/%Y")),origin="1970-01-01")
最佳答案 试试这个:
将日期转换为数字形式,如此
v1<-as.character(v1); v2<-as.character(v2);
v1<-as.numeric(strftime(strptime(v1,"%m/%d/%Y"),"%Y%m%d"));
v2<-as.numeric(strftime(strptime(v2,"%m/%d/%Y"),"%Y%m%d"));
现在计算结果
result<-ifelse(!is.na(v1) | !is.na(v2),max(v1,v2,na.rm=TRUE),NA);
回到你选择的格式
result<-strptime(result,"%Y%m%d");
result<-strftime(result,"%m/%d/%Y");