gpt4 book ai didi

r ifelse date 不添加天数

转载 作者:行者123 更新时间:2023-12-01 23:51:12 26 4
gpt4 key购买 nike

我需要计算 R 中日期列的条件。Atable 将是:

PIL_final1<-data.frame( prior_day1_cart=c(4,8),
prior_day1_comp=c('2014-06-03','2014-06-07'),
dia_lim_23_cart=c('201-07-30','201-07-30') )


PIL_final1$prior_day1_comp<-as.Date(PIL_final1$prior_day1_comp, format='%Y-%m-%d')
PIL_final1$dia_lim_23_cart<-as.Date(PIL_final1$dia_lim_23_cart, format='%Y-%m-%d')

所以我使用 ifelse:

PIL_final1$llamar_dia<-ifelse(PIL_final1$prior_day1_cart+6>23, 
PIL_final1$dia_lim_23_cart ,
PIL_final1$prior_day1_comp+6)

但是我得到:

> PIL_final1
prior_day1_cart prior_day1_comp dia_lim_23_cart llamar_dia
1 4 2014-06-03 0201-07-30 16230
2 8 2014-06-07 0201-07-30 16234

如果我这样做:

> PIL_final1$prior_day1_comp+6

[1] "2014-06-09" "2014-06-13"

我得到了正确的结果。

如何执行 ifelse 并获取日期?谢谢。

此外,如果我尝试这样做,我仍然会得到一个数字(尽管不同):

> PIL_final1$llamar_dia<-ifelse(PIL_final1$prior_day1_cart+6>23, 
+ PIL_final1$dia_lim_23_cart ,
+ as.Date(PIL_final$prior_day1_comp+6,format="%Y-%m-%d"))
> PIL_final1
prior_day1_cart prior_day1_comp dia_lim_23_cart llamar_dia
1 4 2014-06-03 0201-07-30 16376
2 8 2014-06-07 0201-07-30 16377

版本:

另外,如果我这样做:

> as.Date(ifelse(PIL_final1$prior_day1_cart+6>23, PIL_final1$dia_lim_23_cart , 
+ PIL_final1$prior_day1_comp+6), format="%Y-%m-%d", origin="1970-01-01")

[1] "2014-06-09" "2014-06-13"

我得到了正确的结果,但是如果我用矢量结果替换 ifelse,我得到了错误的日期:

> PIL_final1$llamar_dia<-ifelse(PIL_final1$prior_day1_cart+6>23, 
+ PIL_final1$dia_lim_23_cart ,
+ PIL_final$prior_day1_comp+6)


> as.Date(PIL_final1$llamar_dia, format="%Y-%m-%d", origin="1970-01-01")
[1] "2014-11-02" "2014-11-03"

最佳答案

来自 ?ifelse :

The mode of the result may depend on the value of test (see the examples), Sometimes it is better >to use a construction such as

ifelse(test, yes, no) ~~ (tmp <- yes; tmp[!test] <- no[!test]; tmp)

应用这个:

dat$d3 <- 
with(dat,{
tmp <- d2+6; tmp[!(x+6>23)] <- d1[!(x+6>23)]; tmp
})

dat
x d1 d2 d3
1 4 2014-06-03 0201-07-30 2014-06-03
2 8 2014-06-07 0201-07-30 2014-06-07

也许您应该修改它以处理测试中的缺失值。

请注意,我更改了变量名称,因为您输入的变量名称确实很长,而且是真正的错误来源。

dat <- data.frame( x=c(4,8),
d1=c('2014-06-03','2014-06-07'),
d2=c('201-07-30','201-07-30') )

关于r ifelse date 不添加天数,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/26369175/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com