这样不对呀，后面的判断要用前面的变量，你直接用 if  --------else

用 by =1

看了半天？ifelse，
好像说类型会发生变化，尤其是日期和factor时注意。
而且根据判断条件返回的个数来返回结果的个数。
date_1<-NA只会返回一个值，所以结果也是一个值，也就是yes中的第一个，并且转化成了numeric。
y<-ifelse(con,yes,no),我猜con的长度如果和yes的长度相等就可以了，最后还要执行
class(y)<-"Date"才能输出正确结果。

我查到几个链接：
http://stackoverflow.com/questions/6668963/how-to-prevent-ifelse-from-turning-date-objects-into-numeric-objects
http://stackoverflow.com/questions/24983470/r-ifelse-avoiding-change-in-date-format
http://stackoverflow.com/questions/32013013/ifelse-statement-returning-number-instead-of-date

下面代码可以得到结果，当然还是if else简单

谢谢