r如果其他日期不添加天数

我需要计算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')

如果我这样做了：

> 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 , 
+                              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"

>PIL\u final1$llamar\u dia23，
+PIL_final1$dia_lim_23_cart，
+PIL_最终$Previor_day1_comp+6）
>截止日期（PIL\u final1$llamar\u dia，格式=“%Y-%m-%d”，来源=“1970-01-01”）
[1] "2014-11-02" "2014-11-03"
来自
？如果其他
：

结果的模式可能取决于测试值（参见示例），有时最好使用以下结构

ifelse（test，yes，no）~（tmp将结果包装为
as.Date
@bondedust，您好。我得到了相同的结果。请查看版本。我是说将结果包装为：
as.Date（ifelse（…3args…）
…没有将参数包装为
as.Date
@bondedust，我得到一个错误：>as.Date（PIL final1$llamar dia，format=“%Y-%m-%d”）as.Date.numeric（PIL final1$llamar dia，format=“%Y-%m-%d”）：“origin”必须按预期提供此工作：
PIL final1$llamar dia23，PIL final1$dia lim 23，PIL final1$前一天的comp+6，format=“%Y-%m-%d”，origin=“1970-01-01”）
。可能不需要format参数`
> PIL_final1$prior_day1_comp+6

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

> 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"

> 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"

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') )