ifelse出现结果为什么错了

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

date_1<-NA
ifelse(is.na(date_1),seq.Date(ymd(20110601),ymd(20110610),by='day'),seq.Date(ymd(20110607),ymd(20110620),by='day'))
为什么出来的结果是15216，怎样改才能出来正确的结果

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：else LSE ELS date ATE

这样不对呀，后面的判断要用前面的变量，你直接用 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简单

1. yes<-seq.Date(ymd(20110601),ymd(20110610),by="day")
   
2. no<-seq.Date(ymd(20110607),ymd(20110620),by="day")
   
3. date_1[max(length(yes),length(no))]<-NA
   
4. c<-is.na(date_1)
   
5. a<-ifelse(c,yes,no)
   
6. class(a)<-"Date"
   
7. a

复制代码

johnmy 发表于 2016-10-18 05:04
下面代码可以得到结果，当然还是if else简单

谢谢